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allowing  me  a  great  deal  of  freedom  in  this  work.   His  confidence  and 
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CHAPTER  I 
INTRODUCTION 

Literature  Review 

Due  to  escalating  fuel  costs  and  increased  capital  costs  associated 
with  operating  and  owning  agricultural  tractors,  considerable  research 
has  been  conducted  to  improve  the  fuel  efficiency  and  work  rate  of  these 
units.   The  primary  focus  of  this  research  has  been  to  accurately  define 
field  load  variations  and  to  optimize  engine  power  utilization.   The 
potential  savings  from  tractor  performance  optimization  depends  upon 
several  factors;   load  variability,  power  level,  engine  characteristics, 
transmission  characteristics,  and  tractive  efficiency. 

In  a  typical  field  application,  the  operator  selects  an  appropriate 
gear  ratio  and  throttle  setting,  and  then  allows  the  engine  governor  to 
compensate  for  load  variability.   The  choice  of  gear  and  engine  speed 
have  traditionally  been  made  by  the  operator,  based  upon  field  condi- 
tions and  the  type  of  work  to  be  done.   Recently,  researchers  have 
directed  their  efforts  to  improve  the  operator's  decision.   Meiring  et . 
al .  (1979)  developed  a  tractor  efficiency  meter  which  determines  the 
engine  operating  point  in  the  speed  and  power  range.   By  educating  the 
operator  to  the  characteristics  of  the  engine  speed  vs .  power  map ,  the 
efficiency  meter  can  be  used  as  a  valuable  tool  to  improve  both  fuel 
consumption  and  productivity.   Schrock  et .  al.  (1982)  developed  a  gear 
selection  aid  which  informs  the  operator  of  an  optimum  gear  and  engine 


speed  for  a  given  power  demand.   The  average  of  four  tests,  with  opera- 
tors responding  to  instructions  from  the  device,  indicated  a  fuel  sav- 
ings of  19.8  percent  compared  with  the  operator's  normal  practice. 
There  have  been  other  similar  works,  but  in  each  case  the  results  are 
generally  the  same.   Tractor  efficiency  can  be  improved  by  supplying  the 
operator  with  additional  information,  and  by  educating  the  operator  how 
to  use  that  information. 

Three  limitations  may  be  identified  in  past  research  work  which 
will  cause  the  optimization  device  to  yield  a  non-optimal  solution.   The 
first  limitation  is  that  the  operator  must  understand  and  respond  to  all 
information  which  is  presented  to  him.   If  the  operator  does  not  under- 
stand, or  if  the  device  is  continuously  directing  the  operator  to  change 
the  set  point  of  the  drive  line,  the  device  may  be  ignored.   This  prob- 
lem can  be  avoided  by  automation  of  the  drive  line,  thus  taking  the 
operator  out  of  the  optimization  loop.   Chancellor  et.  al.  (1983)  has 
developed  a  simple  control  device  for  tractor  transmission  ratio  and 
governor  setting  so  that  experience  could  be  gained  In  control  design, 
operator  interactions,  and  tractor  performance.   Early  tests  have  shown 
good  response,  and  work  is  continuing  on  development  of  a  complete 
microprocessor  based  controller. 

The  second  limitation  is  that  the  optimization  device  has  a  limited 
number  of  discrete  transmission  ratios  from  which  to  choose.   This 
situation  often  results  in  a  non-optimal  solution.   For  example,  the 
tractor  may  be  operating  at  a  specific  gear  ratio  and  throttle  setting. 
First,  the  device  examines  the  current  state  and  establishes  a  base 


point.   Next,  the  device  examines  other  gear  ratio  and  throttle  combina- 
tions which  will  produce  the  same  power  output.   Due  to  the  small  number 
of  admissible  combinations  which  exist  with  conventional  incremental 
transmissions,  the  device  often  can  not  improve  the  current  combination. 
Obviously,  the  level  of  drive  line  optimization  could  be  improved  by 
increasing  the  number  of  admissible  gear  ratio  and  throttle  setting  com 
binations  which  will  produce  a  given  output  power.   This  can  be  accom- 
plished either  by  using  a  transmission  with  a  large  number  of  discrete 
ratios  or  a  variable  transmission  with  nearly  an  infinite  number  of 
ratios.   One  possible  approach  would  be  to  use  a  hydrostatic  unit,  how- 
ever, these  units  have  a  10  to  15  percent  lower  efficiency  than  conven- 
tional gear  type  transmissions.   These  lower  efficiencies  would  cancel 
much  of  the  gain  achieved  by  the  optimization  process.   Another  possible 
approach  would  be  to  use  a  mechanical  continuously  variable  transmission 
(CVT).   These  transmissions  have  recently  shown  great  promise  due  to 
improved  reliability,  durability,  and  efficiency.   The  major  disadvan- 
tage of  these  units  is  that  they  suffer  from  a  limited  range  of  gear 
ratios,  therefore,  they  must  be  cascaded  with  an  additional  discrete 
transmission  in  order  to  achieve  the  required  ratio  range. 

The  third  limitation  arises  from  an  examination  of  the  assumptions 
used  in  the  development  of  most  optimization  algorithms.   Generally,  it 
has  been  assumed  that  the  variation  of  transmission  efficiency  between 
gears  is  small  and  can  be  neglected  in  the  selection  of  an  optimum  gear 
ratio  and  throttle  setting.   This  has  allowed  researchers  to  develop 
algorithms  based  only  upon  engine  optimization.   Although  this  approach 


often  produces  desirable  results,  extreme  care  must  be  exercised  when 
developing  algorithms  which  select  the  optimum  combination  from  a  large 
group  of  admissible  gear  ratios  and  throttle  settings.   Future  work  must 
move  towards  complete  drive  line  optimization,  rather  than  focusing  only 
on  the  engine. 

In  summary  of  the  current  research  work  in  the  area  of  tractor  per- 
formance optimization,  most  work  has  been  done  in  the  areas  of  defining 
load  variability  and  optimization  of  engine  efficiency.   It  is  expected 
that  future  work  will  continue  in  the  following  areas. 

1.  Accurately  define  field  load  variations  from  which  standard  loading 
cycles  can  be  developed  for  various  field  applications. 

2.  Develop  algorithms  and  test  devices  which  optimize  work  produc- 
tivity and  fuel  economy  over  the  entire  tractor  drive  line. 

3.  Develop  intelligent  systems  which  adjust  operating  conditions  based 
upon  operator  input,  tractive  efficiency,  load  variability,  and 
other  environmental  conditions. 

Project  Overview 

A  joint  study  of  Computer  Control  of  Agricultural  Tractor  Drive 
Lines  was  initiated  in  April,  1984,  between  the  Agricultural  Engineering 
and  Mechanical  Engineering  Departments  at  Kansas  State  University.   The 
objective  of  this  effort  is  to  develop  and  test  a  computer  control  sys- 
tem for  optimizing  the  performance  of  a  diesel  engine  and  a  continuously 
variable  transmission  as  applied  in  an  agricultural  tractor.   The 


objective  of  the  project  may  be  further  divided  into  the  following 
tasks . 

1.  Develop  laboratory  facilities  for  the  study  of  drive  line  effi- 
ciency.  This  facility  will  include  a  drive  line  composed  of  a 
Caterpillar  3304  diesel  engine,  an  experimental  continuously  vari- 
able transmission  (CVT),  a  Funk  model  2263  six  speed  power  shift 
transmission,  a  Funk  model  27  single  speed  planetary  transmission, 
and  a  Midwest  eddy  current-type  dynamometer.   In  addition,  the 
facility  will  also  include  adequate  computer  facilities  and  instru- 
mentation for  implementation  of  data  acquisition  and  control  algo- 
rithms . 

2.  Collect  and  analyze  data  in  order  to  determine  performance  rela- 
tionships between  control  inputs  and  drive  line  outputs. 

3.  Develop  an  algorithm  which  will  minimize  fuel  consumption  at  a 
specified  work  rate,  and  adequate  controls  in  order  to  automate  the 
optimization  process. 

4.  Evaluate  dynamic  considerations  of  the  control  algorithm  so  that 
stable  response  is  obtained  from  the  controller. 

5.  Test  and  evaluate  the  performance  of  the  algorithm  against  various 
loading  cycles.   These  loading  cycles  will  be  derived  from  field 
data  collected  for  the  determination  of  field  load  variability. 

This  project  is  on-going  with  the  test  facility  completed,  the  perfor- 
mance data  collected,  the  basic  optimization  algorithm  outlined,  and  the 


standard  loading  cycles  nearly  completed. 
Purpose  Statement 

The  purpose  of  this  thesis  is  to  present  the  work  completed  on  the 
development  of  computer  facilities  for  implementation  of  data  acquisi- 
tion and  control  algorithms  as  related  to  the  above  project.   These 
facilities  consist  of  two  separate  computers;   an  ADAC  1000  data 
acquisition  system  based  on  the  DEC  LSI-11/23  microprocessor,  and  a 
Motorola  MC68000  Educational  Computer  Board  which  is  a  single  board  com- 
puter based  on  the  powerful  MC68000  16-bit  microprocessor. 


CHAPTER  II 
COMPUTER  ORGANIZATION 

Project  Needs 

During  the  planning  stages  of  the  project,  considerable  attention 
was  given  to  computer  organization  with  respect  to  both  data  acquisition 
and  control.   Early  discussions  exposed  three  concerns.   The  first  con- 
cern was  that  real  time  operation  in  data  collection  and  control  be 
achieved,  secondly,  that  computer  hardware  should  not  be  unnecessarily 
duplicated,  and  thirdly,  that  preliminary  developments  should  not  limit 
future  work.   As  project  discussions  continued,  the  following  list  of 
specific  needs  emerged. 

1.  A  supervisory  system  must  be  developed  which  has  access  to  all 
data.   It  is  the  responsibility  of  the  supervisor  to  insure  com- 
plete system  integrity.   Desirable  features  of  the  supervisor  are: 

A.   Periodically  check  all  data  against  a  set  of  boundary  values 
in  order  to  identify  system  abnormalities. 

8.   Provide  a  display  of  all  data  in  an  easy  to  read  form  along 
with  appropriate  warning  messages. 

C.   Provide  immediate  system  shut  down  in  the  case  of  catastrophic 
drive  line  failure. 

2.  A  flexible  data  recording  system  must  be  developed  which  has  access 
only  to  specific  data.   It  is  the  responsibility  of  the  data 
recorder  to  accurately  measure  and  store  data  for  later  use  in  map- 
ping the  drive  line  and  developing  control  algorithms.   Desirable 


features  of  the  data  recorder  are: 

A.  Accurate  control  over  sampling  rates. 

B.  Flexibility  in  specifying  which  physical  parameters  are  to  be 
measured  and  recorded. 

C.  Data  recorded  should  be  stored  in  a  readable  form  to  facili- 
tate spot  checking. 

3.  A  drive  line  controller  must  be  developed  which  implements  the 
optimization  algorithm.   It  is  the  responsibility  of  the  controller 
to  adjust  the  state  of  the  drive  line  based  upon  decisions  made  by 
the  optimization  algorithm.   Desirable  features  of  the  controller 
are : 

A.  Accurate  real  time  operation. 

B.  Control  of  the  engine  throttle  position. 

C.  Control  of  the  CVT  ring  position  which  ultimately  determines 
the  CVT  gear  ratio. 

D.  Control  of  the  power  shift  gear  ratio. 

4.  Additional  drive  line  sub-system  controllers  must  be  developed  as 
needed.   These  controllers  should  be  developed  and  implemented 
independently  of  the  drive  line  controller.   Currently,  the  CVT  oil 
temperature  and  the  dynamometer  loading  pattern  are  the  only  sub- 
systems in  need  of  computer  control. 

In  order  to  meet  these  computer  needs,  a  large  amount  of  instrumen- 
tation has  been  developed  to  transform  the  physical  drive  line  parame- 
ters into  measurable  signals.   A  complete  list  of  parameters  and  their 
corresponding  signal  characteristics  are  presented  in  Appendix  A.   The 
information  in  Appendix  A  is  divided  into  four  sections;  engine,  CVT, 
power  shift,  and  dynamometer.   Each  of  the  four  main  sections  is  further 


divided  into  primary  and  secondary  parameters. 

Division  of  Responsibility 

The  above  project  needs  are  now  divided  as  tasks  between  the  two 
computers.   The  ADAC  1000  has  responsibility  for  the  supervisory  func- 
tions, data  recording,  sub-system  controls,  and  conversion  of  all  analog 
data  into  digital  forms.   The  Motorola  single  board  computer  has  respon- 
sibility for  drive  line  control  and  optimization.   In  addition,  each  of 
the  computers  has  responsibility  over  digital  data  which  is  directly 
associated  with  their  specific  tasks. 

It  must  be  emphasized  that  the  two  computers  can  not  work  indepen- 
dently of  each  other.   For  example,  the  ADAC  computer  records  certain 
digital  information  which  only  the  single  board  computer  can  access. 
Therefore,  an  adequate  communication  link  must  be  established  between 
them.   This  links  take  the  form  of  an  RS-232  standard  protocol,  and  all 
communication  follows  ASCII  standards.   These  communications  must  be 
minimized  since  the  inherent  time  delays  will  affect  the  real  time 
operation  of  both  computers. 

In  summary,  this  chapter  has  defined  the  project's  overall  computer 
needs,  and  has  further  grouped  these  needs  into  specific  tasks  for  each 
of  the  two  computers.   In  addition  the  need  for  inter- computer  cummuni 
cations  has  been  established  and  several  concerns  have  been  expressed. 
Chapter  III  will  outline  the  work  done  on  the  ADAC  1000.  and  Chapter  IV 
will  present  a  discussion  of  the  MC68000ECB. 


CHAPTER  III 
ADAC  1000 

System  Evaluation 

The  ADAC  1000  data  acquisition  system  is  based  upon  the  DEC  LSI- 
11/23  microprocessor.   It  has  been  equipped  with  a  7.5  Mbyte  hard  disk, 
an  8  inch  floppy  disk,  256  Kbytes  of  RAM,  and  4  serial  ports.   Data 
acquisition  capabilities  include  32  channels  of  low  level  analog  inputs. 
64  channels  of  high  level  analog  inputs,  64  digital  I/O  ports,  4  analog 
output  channels,  and  4  pulse  counters,  along  with  a  real  time  clock. 

Soon  after  the  division  of  responsibilities  was  made,  a  thorough 
evaluation  of  the  ADAC  1000  was  completed  to  determine  the  suitability 
of  the  system  for  its  intended  tasks.   This  evaluation  concluded  that  an 
extensive  update  was  in  order  to  overcome  previous  reliability  problems. 
The  following  modifications  were  made. 

1.  The  computer  enclosure  was  reorganized  to  Improve  access  to  data 
acquisition  modules  and  to  allow  for  a  pressurized  air  circulation 
system.   In  addition,  a  1  KW  Tripp  Lite  model  SB-lOOOa  UPS  was 
added. 

2.  The  interface  between  the  data  acquisition  modules  and  real  world 
instrumentation  was  rebuilt.   The  new  interface  provides  user 
access  to  all  A/D ,  D/A .  thermocouples,  frequency,  digital,  and  RS- 
232  signals.   The  interface  also  provides  for  custom  signal 


conditioning  for  a  variety  of  applications. 

3.   The  original  DEC  RT-11  operating  system  was  replaced  by  2.9BSU  UNIX 
which  is  based  on  Bell  Labs  UNIX  Version  7.   In  addition,  all  data 

acquisition  service  routines  were  rewritten  in  C,  the  intermediate 

language  on  which  the  UNIX  operating  system  is  based. 

After  the  above  modifications  were  made,  extensive  tests  were  conducted 
on  both  the  operating  system  and  data  acquisition  facilities.   This  work 
went  well  with  few  difficulties,  and  the  complete  system  was  ready  for 
development  of  its  specific  tasks.   Currently,  the  ADAC  1000  is  a 
multi-user  computing  facility,  which  supports  data  acquisition  capabili 
ties,  several  compilers,  graphics,  statistical  analysis,  and  many  other 
2.9BSD  UNIX  application  programs.   Since  the  modifications,  work  has 
proceeded  with  remarkable  system  reliability  and  the  overall  response 
has  been  excellent. 

Multi-Process  Approach 

As  outlined  in  chapter  II,  the  ADAC  1000  is  responsible  for  the 
supervisory  functions,  data  recording,  sub-system  controls,  and  conver- 
sion of  all  analog  data  into  digital  forms.   Due  to  the  interactions 
between  the  various  tasks,  all  of  the  ADAC  responsibilities  have  been 
grouped  together  into  one  program.   In  addition,  a  terminal  handler  pro- 
gram has  been  developed  which  controls  the  communications  between  the 
real  time  task  program  and  the  terminal.   The  structure  of  these  pro- 
grams has  been  developed  from  concepts  used  in  concurrent  programming 
where  inter-process  communication  is  accomplished  by  message  passing. 


All  together  there  are  three  processes  executing  under  the  supervi- 
sion of  the  UNIX  operating  system.   One  of  the  three  processes  is  the 
parent  which  initiates  the  creation  of  two  other  processes,  known  as 
children.   These  children  are  the  screen  and  task  processes.   The  parent 
also  establishes  all  communication  links  between  the  children  and 
itself.   After  successful  creation  of  the  two  children  and  their  inter- 
communications, the  parent  becomes  the  keyboard  process.   Following  is  a 
description  of  the  relationships  between  the  parent  and  the  two  children 
as  shown  in  Figure  1,  page  13. 

The  keyboard  process  accumulates  input  from  the  terminal  keyboard 
until  a  full  line  of  information  has  been  recognized.   After  which,  the 
keyboard  process  sends  the  line  to  the  task  process  and  informs  the  task 
process  that  information  is  waiting.   In  addition,  the  keyboard  process 
echos  input  data  to  the  screen  process  one  character  at  a  time. 

One  of  the  two  children  is  a  terminal  screen  process.   This  process 
accepts  input  from  the  task  and  keyboard  processes,  and  displays  the 
information  on  a  static  screen.   The  screen  process  input  requires  x-y 
coordinates,  attributes,  data  format,  and  data.   This  process  does  not 
send  information  back  to  the  other  processes. 
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Figure  1  Multi-Process  Relationships 

The  other  child  is  the  real  time  task  process  which  carries  out  the 
specific  tasks  assigned  to  the  ADAC  1000.   When  the  parent  process 
creates  the  task  process,  the  standard  input  (stdin)  is  connected  to  the 
keyboard  process  and  the  standard  output  (stdout)  is  connected  to  the 
screen  process.   When  the  task  process  begins  execution,  the  first  step 
is  to  initialize  all  connections  which  have  not  been  created  by  the 
parent.   The  initialization  consists  of  five  items. 


1.   Attach  the  UNIX  signal  associated  with  the  keyboard  process  to  the 


task  process . 

2.  Establish  necessary  links  to  the  UNIX  software  timer  in  order  to 
schedule  real  time  activities. 

3.  Establish  the  communication  link  to  the  MC68000ECB. 

4.  Attach  the  data  acquisition  and  control  facilities  to  the  UNIX 
operating  system  so  that  physical  addressing  is  possible. 

5.  Send  headings  and  other  general  information  to  the  screen  process. 

After  the  task  process  initialization  is  complete,  all  relationships 
shown  in  Figure  1  have  been  created.   It  should  be  noted  that  the  con- 
nection between  the  task  process  and  mass  storage  is  attached  and 
detached  as  needed  by  normal  execution  of  the  task  process. 

Task  Process  Structure 

As  shown  in  Figure  2,  page  16.  the  task  process  is  divided  into 
three  regions;  real  time,  human,  and  MC68000.   These  regions  all  have  a 
source  of  external  request  stimulus,  a  common  event  detection  mechanism, 
and  a  request  handler.   The  common  event  mechanism  detects  the  presence 
of  an  external  request  and  then  passes  control  to  the  appropriate 
request  handler.   In  addition,  all  three  regions  are  bound  together  by  a 
common  data  structure  which  allows  the  regions  to  influence  one  another. 
Following  is  a  detailed  discussion  of  each  of  the  three  regions. 

The  real  time  region  consists  of  the  software  timer  request,  event 
detection,  real  time  handler,  and  the  common  data  structure.   During  the 
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initialization  of  the  task  process,  a  link  between  the  UNIX  software 
timer  and  the  common  data  structure  was  created.   Each  time  the  timer 
signal  makes  a  request,  a  variable  in  the  common  data  structure  is 
changed.   The  event  detection  mechanism  detects  this  change  and  passes 
control  to  the  real  time  handler.   ft  is  the  responsibility  of  the  real 
time  handler  to  schedule  those  tasks  which  require  real  time  control. 
Within  the  real  time  handler,  there  are  four  real  time  loops. 

1.  The  supervisory  monitor  loop  reads  all  drive  line  parameters  and 
compares  these  values  to  a  set  of  boundary  values.   In  addition, 
the  monitor  sends  all  parameter  values  along  with  warnings  to  the 
screen  process. 

2.  The  data  recorder  loop  reads  specific  drive  line  parameters  and 
stores  these  values  in  mass  storage. 

3.  The  CVT  oil  temperature  controller  loop  reads  the  needed  parameters 
to  determine  the  necessary  heater  input  control. 

4.  The  dynamometer  controller  loop  reads  the  needed  parameters  to 
determine  the  necessary  dynamometer  input  control. 

Each  of  these  real  time  loops  has  a  different  loop  time  associated  with 
them.  Therefore,  the  real  time  handler  must  determine  which  loops  need 
to  be  executed,  if  any,  and  passes  control  to  those  specific  loops.  it 
should  be  noted  that  the  time  interval  of  the  software  timer  request  is 
chosen  as  the  greatest  common  factor  of  all  four  loop  times. 


Human 
Region 


Real  Time 
Region 


JCS8000 
Region 


Figure  2   Task  Process  Structure 


The  human  region  consists  of  the  keyboard  process  request,  event 
detection,  keyboard  handler,  and  the  common  data  structure.   During  the 
initialization  of  the  task  process,  a  link  between  the  keyboard  signal 
and  the  common  data  structure  was  created.   Each  time  the  keyboard  pro- 
cess signals  the  task  process  that  data  is  waiting,  a  variable  in  the 
common  data  structure  is  changed.   The  event  mechanism  detects  this 
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change  and  passes  control  to  the  keyboard  handler.  It  is  the  responsi- 
bility of  the  keyboard  handler  to  read  the  waiting  line  of  information, 
interpret  meaning,  and  execute  the  command. 

The  keyboard  handler  provides  a  powerful  mechanism  by  which  the 
operator  can  examine  and  modify  most  of  the  common  data  structure.   This 
ability  allows  the  operator  to  control  the  normal  execution  of  the  other 
two  regions.   Although  the  possibilities  are  almost  limitless,  the  basic 
capabilities  of  the  keyboard  handler  can  be  grouped  into  four  areas. 

1.  Data  Acquisition. 

Through  the  keyboard  hand     the  operator  can  deal  with  all  data 
acquisition  facilities.   This  involves  channel  assignments  to  drive 
line  parameters,  calibration  of  offsets  and  gains,  and  printing 
additional  information  about  a  particular  parameter  to  the  screen. 

2.  Program  Control. 

The  keyboard  handler  also  allows  the  operator  to  manipulate  those 
variables  in  the  common  data  structure  which  control  program  execu- 
tion flow.  This  involves  real  time  loop  intervals,  and  the  abi 1 i ty 
to  turn  specified  loops  on  and  off.  In  addition,  parameters  needed 
by  the  real  time  loops  may  be  passed  by  the  keyboard  handler  to  the 
common  data  structure. 

3.  Boundary  Values. 

As  was  described  earlier,  the  supervisory  monitor  periodically  com- 
pares ail  parameter  values  against  a  set  of  boundary  values.  These 
boundary  values  are  stored  in  the  common  data  structure,  thus 


allowing  the  keyboard  handler  to  access  them.   This  allows  the 
operator  to  change  the  boundary  values  during  normal  execution  of 
the  task  process. 

4.   Maintenance. 

The  keyboard  handler  allows  the  operator  to  perform  maintenance  on 
the  common  data  structure.   This  involves  saving  the  entire  struc- 
ture on  mass  storage,  allowing  complete  examination  of  the  struc- 
ture at  a  later  time. 

The  program  structure  of  the  keyboard  handler  is  much  like  a  common 
interactive  command  line  interpreter.   However,  all  information  needed 
to  fully  execute  the  command  must  be  contained  in  a  single  line  of 
information. 

The  MC68000  region  consists  of  the  MC68000ECB  request,  event  detec- 
tion. MC68000  handler,  and  the  common  data  structure.   During  the  ini- 
tialization of  the  task  process,  a  serial  communications  buffer  was  con- 
nected to  the  task  process.   Each  time  that  the  MC68000ECB  makes  a 
request  or  sends  data,  characters  appear  at  the  communications  buffer. 
The  event  detection  mechanism  reads  characters  in  from  the  buffer  until 
a  line  has  been  recognized  and  then  verifies  the  line.   After  the  event 
detection  mechanism  receives  a  valid  request  or  data,  control  is  passed 
to  the  MC68000  handler.   This  method  of  event  detection  is  much  dif- 
ferent than  that  of  the  other  two  regions.   In  this  case  the  event 
detection  mechanism  must  poll  the  communication  buffer  since  no  UNIX 
signal  is  connected  to  the  common  data  structure.   It  should  be  noted 


that  this  form  of  event  detection  represents  a  violation  of  the  real 
time  intent  of  the  task  process.   Therefore,  communication  between  the 
task  process  and  MC68000ECB  has  been  minimized. 

Once  control  has  been  passed  to  the  MC68000  handler,  two  possible 
actions  can  take  place.   If  the  request  line  contains  input  data,  the 
request  handler  parses  the  line  and  stores  the  data  in  the  common  data 
structure.   If  the  request  line  contains  a  request  for  data,  the  request 
handler  reads  the  drive  line  parameters  needed  by  the  MC68000ECB  and 
sends  the  data  back  through  the  serial  line. 

In  summary,  the  purpose  of  this  chapter  is  to  give  an  overview  of 
the  work  completed  on  the  ADAC  1000.   This  work  falls  into  two  main 
categories;   a  complete  system  update,  and  development  of  the  specific 
tasks.   In  order  to  implement  the  specific  tasks,  a  great  deal  of 
software  was  needed.   This  software  package  is  based  upon  concepts  used 
in  concurrent  programming  in  order  to  preserve  real  time  capabilities. 
A  complete  listing  of  the  real  time  task  process  software  is  included  in 
Appendix  B. 


CHAPTER  IV 
MC68000ECR 

System  Overview 

As  outlined  in  chapter  II,  the  responsibility  of  the  MC68000ECD  is 
to  control  the  drive  line  in  an  optimal  manner.   In  order  to  accomplish 
its  intended  tasks,  the  single  board  computer  hardware  has  been  greatly 
expanded.   Software  has  also  been  developed  to  manage  and  test  the  added 
hardware.   The  purpose  of  this  chapter  Is  to  discuss  both  hardware  and 
software  developments. 

The  MC68000ECB  hardware  has  been  expanded  into  a  three  board  com- 
puter as  shown  in  Figure  3,  page  21.   An  enclosure  has  been  built  to 
provide  a  suitable  environment  for  the  MC68000ECB,  the  I/O  expansion 
board,  the  high  current  driver  board,  and  two  power  supplies.   The  main 
power  supply  services  the  MC68000ECB  and  the  bus  interface  section  of 
the  I/O  expansion  board.   The  instrument  power  supply  services  the 
external  digital  inputs  and  the  isolation  section  of  the  I/O  expansion 
board.   The  high  current  driver  board  provides  the  connections  between 
the  driver  interface  section  of  the  the  I/O  expansion  board  and  the 
external  high  current  digital  outputs.   Power  for  the  digital  outputs  is 
provided  by  the  engine  electrical  system.   In  addition,  a  number  of 
manual  switches  provide  control  of  the  various  power  supplies.   Finally, 
serial  communications  has  been  established  between  the  MC68000ECB  and 
its  console,  and  between  the  MC68000ECB  and  the  ADAC  1000. 
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Figure  3  Hardware  Configuration 


The  software  developed  on  the  MC68000ECB  provides  the  framework  for 
all  future  software  developments.   Since  the  final  optimization  algo- 
rithm has  not  been  completely  defined,  a  flexible  software  structure  has 
been  established.   As  shown  in  Figure  4,  page  22.  the  software  package 
is  divided  into  four  blocks:  sequential  program  execution,  software 
interrupt  (SWI)  processing,  hardware  interrupt  (HWI)  processing,  and  a 
common  data  structure. 
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Figure  4  Software  Structure 
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Norma]  sequential  program  execution  begins  by  initialization  of  the 
common  data  structure,  software  and  hardware  interrupt  vectors,  and  all 
system  hardware.   After  the  initialization  sequence  is  complete,  the 
entire  software  structure  is  functional.   The  normal  program  execution 
then  enters  a  continuous  loop.   During  one  pass  through  the  loop  all 
inputs  are  read,  the  new  desired  drive  line  state  Is  determined,  and  the 
outputs  are  set.   In  its  final  form,  the  sequential  program  execution 
block  will  contain  the  optimization  algorithm.   It  is  emphasized  that 
normal  program  execution  never  deals  directly  with  hardware  devices.   In 
order  for  sequential  program  execution  to  communicate  with  a  hardware 
device,  it  must  generate  a  software  interrupt.   The  interrupt  causes 
control  to  be  passed  to  the  software  interrupt  processing  block  which 
performs  the  hardware  manipulation.   All  data  transfer  between  the 
sequential  program  execution  block  and  the  software  interrupt  processing 


block  is  accomplished  through  the  common  data  structure. 

The  hardware  interrupt  processing  block  handles  physically  gen- 
erated interrupts.   These  interrupts  are  non-sequential.   That  is,  they 
may  occur  at  any  time  without  reguard  to  the  current  state  of  the 
microprocessor.   These  interrupts  may  occur  from  the  hardware  timer  used 
for  real  time  control,  an  ADAC  1000  request  for  data,  or  an  operator 
request  for  system  shutdown.   In  any  case,  the  hardware  interrupt  pro- 
cessing block  contains  the  code  to  handle  these  specific  hardware  inter- 
rupts.  In  order  to  service  these  interrupts,  it  is  often  necessary  to 
communicate  with  externa]  hardware  devices.   Therefore,  the  hardware 
interrupt  processing  block  may  also  generate  software  interrupts  in  a 
similar  manner  as  the  sequential  program  execution  block. 

The  software  interrupt  processing  block  is  partitioned  into  a 
number  of  small  groups  of  code  called  device  drivers  or  utilities.   Each 
of  these  small  groups  has  a  specific  software  interrupt  level  associated 
with  it.   Whenever  a  software  interrupt  is  generated,  the  calling  block 
must  specify  a  level.  The  level  of  the  interrupt  specifies  which  utility 
or  device  driver  is  to  be  executed.   This  technique  of  control  transfer 
is  similar  to  calling  a  subroutine  except  that  the  calling  program  does 
not  need  to  know  the  starting  address  of  the  desired  utility. 

The  concept  of  software  interrupt  processing  is  the  backbone  of  the 
entire  software  package.  This  has  allowed  individual  device  drivers  and 
utilities  to  be  written  and  tested  before  the  other  two  blocks  were  com- 
pletely defined.   Since  nearly  all  of  the  hardware  is  experimental,  this 
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modular  design  has  also  increased  the  speed  of  testing  hardware  and 
software  designs.   After  the  basic  software  and  hardware  elements  were 
proven,  the  rest  of  the  system  was  built  upon  these  basic  elements. 

The  above  discussion  has  given  a  brief  overview  of  the  entire  sys- 
tem.  Both  hardware  and  software  have  been  discussed  in  order  to  give 
prospective  to  the  entire  system  development.   In  the  following  two  sec- 
tions, greater  details  will  be  discussed. 

Hardware  Details 

The  MC68000  Educational  Computer  Board  (ECB)  is  a  complete  single 
board  computer.   Features  of  the  computer  are: 

1.  A  4  megahertz  MC68000  16-bit  MPU.   This  microprocessor  has  a  16  bit 
data  bus  and  a  24-bit  address  bus.   The  address  bus  provides  a 
memory  addressing  range  of  16  megabytes.   The  processor  also  has 
eight  32-bit  data  registers,  seven  32-bit  address  registers,  two 
32-bit  stack  pointers,  a  32-bit  program  counter,  and  a  16-bit 
status  register . 

2.  32  Kbytes  of  dynamic  RAM.   Approximately  2  Kbytes  are  reserved  for 
the  operating  system  leaving  30  Kbytes  for  user  programs. 

3.  16  Kbytes  of  ROM.   A  small  operating  system  called  TUTOR  resides  on 
read  only  memory.   The  f i rmware  provides  moni tor /debug, 
assembly/disassembly,  program  entry,  and  simple  I/O  control  func- 
tions . 
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4.  Two  serial  communication  ports.   These  ports  are  fully  RS-232C  com- 
patible and  have  hardware  selectable  baud  rates. 

5.  A  parallel  port.   This  port  can  be  used  for  a  standard  Centronics 
interface  or  custom  I/O. 

6.  Audio  tape  serial  I/O  port.   This  feature  allows  for  program 
storage  on  a  standard  tape  recorder. 

7.  A  24-bit  programmable  timer.   This  timer  is  a  synchronous  device 
which  can  be  used  for  generating  or  measuring  both  time  delays  and 
various  frequencies.   The  timer  can  be  clocked  with  a  5-bit  pres- 
caler  or  directly,  and  the  clocking  source  can  be  the  4-Mhz  system 
clock  or  an  external  clock. 

8.  Wire-wrap  area  provided  for  custom  circuitry. 

9.  RESET  and  ABORT  function  switches. 

A  picture  of  the  MC68000ECB  and  a  functional  block  diagram  are  shown  in 
Appendix  C  (pages  93  and  94).  Additional  information  on  the  MC68000ECB 
is  given  in  the  Motorola  User's  Manual. 

The  first  step  in  expanding  the  MC68000ECB  was  to  develop  a  stan- 
dard asynchronous  bus  buffer.   This  buffer  was  installed  in  the  wire 
wrap  area  on  the  board  and  provides  full  protection  to  all  system  data, 
address,  and  control  lines  which  are  taken  off  the  board.   Due  to  physi- 
cal space  limitations  of  the  on  board  wire  wrap  area,  only  eight  of  the 
sixteen  data  lines  are  available.   Otherwise,  all  address  and  control 


lines  are  provided.   This  limitation  is  not  serious  since  most  peri- 
pherals developed  for  the  MC68000  have  an  8-bit  data  bus.   Complete 
details  of  the  buffer  including  parts  list,  board  layout,  and  schematic 
are  presented  in  Appendix  C  (pages  95  and  96). 

Once  the  MC68000ECB  system  buses  were  buffered,  they  were  extended 
onto  a  second  board  by  a  standard  ribbon  cable  connection.   The  second 
board,  called  the  I/O  expansion  board,  provides  access  to  all  external 
devices.   The  bus  interface  section  of  the  I/O  expansion  board  consists 
of  two  MC68230  parallel  interface/timers  (PI/T)  along  with  necessary 
address  decoding.   Each  of  the  PI/Ts  is  actually  two  separate  devices  in 
one  package.   A  parallel  interface  section  provides  two  8-bit  external 
ports,  and  a  timer  section  provides  a  24-bit  programmable  timer.   The 
driver  interface  and  isolation  section  of  the  I/O  expansion  board  con- 
sists of  the  hardware  needed  to  provide  the  low  current  interface  and 
high  voltage  isolation  between  the  PI/Ts  and  the  external  devices. 
These  facilities  include  two  stepper  motor  drivers,  two  incremental 
encoder  inputs,  one  absolute  encoder  input,  and  numerous  single  bit  I/O. 
Complete  schematics  of  the  1/0  expansion  board  are  presented  in  Appendix 
C  (pages  97  to  102).   In  addition,  a  schematic  for  the  digital  inputs  is 
given  on  page  103,  schematics  for  the  high  current  outputs  are  presented 
on  pages  104  to  108.  and  relevant  data  sheets  are  given  in  Appendix  F. 

The  remaining  hardware  discussion  will  focus  on  two  topics  which 
are  unique  to  the  drive  line  interface.   These  discussions  are  intended 
to  supplement  the  schematics  in  Appendix  C.   The  first  topic  is  optical 
isolation,  and  the  second  is  interfacing  stepper  motors. 
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Optical  Isolation 

In  this  application,  numerous  external  devices  are  connected  to  the 
I/O  expansion  board.   Each  of  these  devices  has  its  own  specific  power 
supply  requirements.   It  is  important  that  these  power  supplies  be 
separated  in  some  way.   Without  separation,  a  failure  in  any  one  of  the 
external  branches  could  cause  devastating  damage  to  other  devices  and  to 
the  main  boards.   To  provide  complete  isolation  for  all  power  supplies 
from  each  other  and  for  all  external  devices  from  the  main  boards,  a 
system  of  optical  isolation  has  been  developed. 

Figure  5,  shows  a  typical  isolated  output.   The  last  chip  in  the 
low  level  board  logic  must  have  TTL  Open  Collector  high  current  outputs. 
This  allows  the  designer  to  customize  the  value  of  the  pull-up  resistor 
(Rl)  to  the  specific  current  requirements.   The  output  of  the  open 
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Figure  5  Typical  Isolated  Output 


collector  drives  the  input  to  a  4N33  Opto-Isolator .   This  chip  provides 
full  separation  of  power  grounds,  and  7500  V  isolation.   The  input  of 


the  4N33  consists  of  an  infrared  light  emitting  diode  and  the  output 
consists  of  a  photo  darlington  transistor  pair.   The  open  collector 
design  of  the  output  of  the  4N33  allows  the  designer  to  customize  the 
value  of  the  pull-up  resistor  (R2)  which  drives  the  input  to  the  exter- 
nal load.   Note  that  the  load  may  need  to  include  current  amplifiers. 

There  are  a  number  of  design  considerations  In  the  selection  of  the 
pull-up  resistors.   The  following  is  the  procedure  used  in  the  present 
design. 

1.  Rl  is  selected  so  that  the  low  level  output  current  of  the  TTL  open 
collector  is  not  exceeded.   The  maximum  value  is  typically  25  mil  - 

1  lamps,  therefore,  Rl  must  be  greater  than  200  ohms.   A  value  of 
220  ohms  has  been  used  in  the  present  design. 

2.  R2  is  selected  so  the  at  the  low  level  output  current  of  the  4N33 
is  not  exceeded.   The  maximum  value  is  50  milliamps,  therefore,  R2 
must  be  greater  than  100  ohms.   The  exact  selection  of  the  value  or 
R2  varies  with  the  characteristics  of  the  load  input  current 
requirements. 

3.  The  resistor  R3  is  used  to  improve  the  dynamic  switching  charac- 
teristics of  the  4N33.   This  is  because  the  diode  has  low  input 
impedance  and  does  not  switch  off  cleanly  after  it  has  been  driven 
on  for  an  extended  period  of  time.   A  value  of  390  ohms  was  used  in 
the  present  design.   Note  that  if  the  value  of  R3  is  too  large,  the 
forward  current  of  the  diode  is  diminished  below  the  switch-on 
threshold. 


An  interesting  side  affect  of  the  above  circuit  is  that  the  logic 
is  inverted.   When  the  TTL  output  goes  high,  current  is  driven  through 
the  diode,  turning  the  darlington  pair  on.   With  the  transistors  on,  the 
output  of  the  4N33  goes  iow,  thus  turning  the  load  off.   tn  contrast, 
when  the  TTL  output  goes  low.  the  current  through  Rl  sinks  into  the  TTL 
output,  thus  turning  the  darlington  pair  off.   With  the  transistors  off, 
the  output  of  the  4N33  goes  high,  thus  turning  the  load  on. 

Although  the  above  example  demonstrates  the  use  of  opto -isolation 
for  a  single  output,  the  basic  concepts  of  the  design  can  be  used  for 
inputs  as  well.   In  fact,  entire  groups  of  inputs  and  outputs  can  be 
isolated  using  this  technique.   In  the  present  design,  every  input  and 
output  is  fully  isolated  between  the  I/O  expansion  board  and  the  rest  of 
the  external  devices. 

Interfacing  Stepper  Motors 

Two  dual  phase  unipolar  stepper  motors  are  used  on  the  drive  line. 
One  motor  controls  the  engine  throttle  position  and  the  other  controls 
the  CVT  ring  position.   Each  of  these  motors  has  a  stepper  motor  driver 
associated  with  it.   The  two  drivers  are  functionally  identical,  how- 
ever, each  has  been  fine  tuned  to  match  the  dynamics  of  their 
corresponding  motors. 

There  are  many  tradeoffs  between  hardware  and  software  in  the 
design  of  a  stepper  motor  driver.   In  some  systems,  the  stepper  motor  is 
driven  with  variable  stepping  rates  in  order  to  accelerate  large  loads. 
In  other  systems,  a  technique  called  micro  stepping  is  used  to  improve 
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the  accuracy  of  position  control.   In  both  of  these  cases,  complete 
software  control  of  the  stepping  sequence  is  required  for  the  entire 
move.   It  is  desirable,  in  this  application,   for  software  to  play  a 
minimal  role  in  the  process  of  moving  the  motors  from  one  position  to 
another.   Since  motor  stepping  rates  are  slow  compared  to  the  normal 
clocking  speed  of  the  microprocessor,  constant  supervision  of  a  motor 
would  waste  valuable  processing  time.   In  addition,  it  would  be  diffi- 
cult to  control  two  motors  moving  at  the  same  time  using  only  one  CPU. 
Therefore,  a  hardware  system  has  been  built  and  tested  which  requires 
the  main  control  program  to  supply  only  two  inputs.   The  program  must 
calculate  the  desired  number  of  steps  and  the  relative  direction  of  the 
move.   In  addition  the  software  must  enable  the  hardware  to  initiate  the 
move.   It  is  emphasized  that  the  control  software  does  not  need  to  ser- 
vice the  hardware  at  any  time  after  the  move  is  initiated.   This  allows 
the  microprocessor  to  do  other  things  while  the  stepper  motors  are  mov- 
ing. 

Referring  to  Figure  6,  page  31,  each  stepper  driver  consists  of  a 
timer,  a  clock  source,  a  stepper  driver  chip,  some  additional  logic,  an 
optical  coupler,  and  a  high  current  driver  section.   The  timer  is  part 
of  the  MC68230  PI/T  and  provides  the  necessary  interface  between  the 
MC68000  system  bus  and  the  rest  of  the  external  hardware.   The  clock 
signal  is  derived  from  the  system  1MHz  system  clock  using  decade 
counters.   The  stepper  driver  chip  is  a  Motorola  SAA1042  which  generates 
the  correct  switching  sequence  logic  for  both  full  and  half  stepping 
modes.   The  output  of  the  driver  chip  consists  of  four  lines,  one  for 


each  coil  of  the  stepper  motor,  which  are  first  inverted  and  then  passed 
through  a  series  of  4N33  optical  isolators.   The  outputs  of  the 
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Figure  6  Stepper  Motor  Driver  Circuit 


optical  isolators  drive  the  bases  of  four  SK3180  NPN  Darlington  power 
transistors.   These  transistors  switch  the  four  motor  coils  to  ground. 
The  stepper  motors  were  originally  designed  to  be  driven  with  4  to  5 
volts  DC,  however,  in  this  application  it  was  more  suitable  to  use  the 
12  volt  power  supply  available  at  the  engine  electrical  system.   To  do 
this  an  external  resistor  was  placed  in  series  with  the  stepper  motor. 
The  effect  of  this  resistor  is  to  develop  a  voltage  divider  with  the 
input  to  the  motor  as  the  center  node.   By  adjusting  the  value  of  the 
external  resistance,  the  correct  current  is  provided  through  the  motor. 
In  addition,  this  technique  has  the  advantage  of  lowering  the  time  con- 
stant (T=  L/R)  of  the  motor  and  improving  its  current  switching 


characteristics. 

The  basic  operation  of  the  hardware  is  as  follows: 

1.  The  number  of  desired  steps  is  loaded  into  the  timer,  and  the  rela- 
tive rotational  direction  is  established  at  the  stepper  driver 
logic  chip. 

2.  The  timer  is  started  allowing  the  "done"  signal  to  go  high.   With 
the  "done"  signal  high,  the  "clock"  signal  passes  through  the  "AND" 
gate.   The  output  of  the  "AND"  gate  provides  a  dual  function  of 
decrementing  the  counter  and  clocking  the  stepper  driver  logic 
chip.   Note  that  the  timer  is  decremented  by  one  count  for  each 
cycle  of  the  "decrement"  signal  and  the  stepper  driver  logic 
advances  the  stepper  motor  one  step  for  each  cycle  of  its  input 
clock. 

3.  The  circuit  continues  to  decrement  the  timer  and  clock  the  stopper 
driver  logic  until  the  value  in  the  timer  goes  to  zero  or  "rolls 
over".   At  this  point  the  timer  drops  the  "done"  signal  low  causing 
the  "clock"  signal  to  be  gated  off.   With  the  clock  signal  gated 
off,  the  stepper  driver  logic  is  effectively  halted  without  loss  of 
the  current  sequence  state. 

During  the  initial  design  stages  of  the  stepper  motor  drivers,  it 
was  anticipated  that  the  open  loop  design  would  provide  the  needed  accu- 
racy and  repeatability.   However,  during  testing,  the  motors  would  occa- 
sionally loose  steps.   This  was  because  the  dynamic  actuator  loads  were 
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greater  than  first  anticipated.   At  this  point  each  of  the  actuator  gear 
trains  were  modified  to  include  an  optical  incremental  encoder.   These 
encoders  provide  the  repeatability  necessary  for  data  collection  and 
control  of  the  motors.   Note  that  the  lack  of  precision  in  the  open  loop 
design  is  not  caused  by  a  problem  in  the  stepper  motor  driver,  but 
rather  is  due  to  inadequate  torque  capacity  of  the  stepper  motors.   In  a 
final  design,  the  feedback  encoders  would  not  be  needed. 

The  output  of  the  encoders  is  a  pair  of  square  wave  pulse  trains 
whose  phase  indicates  relative  direction.   This  type  of  output  is  known 
as  "Quadrature"  output.   By  correct  separation  of  the  two  pulse  trains, 
a  suitable  up/down  counter  can  be  used  to  keep  track  of  the  absolute 
position  of  the  encoders.   In  addition,  some  reference  must  be  esta- 
blished for  the  "home"  or  zero  point  of  the  counters.   Two  20-bit 
counters  were  available  (Spaulding,  1985)  which  correctly  read  quadra 
ture  output.   These  counters  were  added  to  the  I/O  expansion  board  and 
require  seven  control  lines  in  order  to  multiplex  the  data  to  an  8-bit 
data  bus.   To  accomodate  the  requirements  of  these  devices,  an  8-bit 
external  data  bus  and  an  8-bit  external  control  bus  were  developed  using 
one  of  the  two  off-board  PI/Ts.   The  hardware  specifications  for  the 
counters  and  the  external  buses  are  given  in  Appendix  C  (pages  99  to 
103).   The  software  specifications  of  the  external  buses  are  given  in 
Appendix  D  (pages  142  and  143). 

Software  Details 

As  previously  mentioned,  software  has  been  developed  for  the 
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MC68000ECB  to  support  the  hardware  extensions.   During  the  development 
of  this  software,  a  number  of  facilities  were  established  In  order  to 
provide  a  suitable  software  development  environment.   Although  the  sin- 
gle board  computer  provides  software  development  tools,  some  of  these 
were  found  to  be  inadequate.   The  major  deficiencies  were  program 
storage  and  program  documentation. 

The  MC68000ECB  provides  a  cassette  recorder  interface  for  program 
storage  and  retrieval,  however,  it  is  difficult  to  use  and  reliability 
is  questionable.   A  more  suitable  solution  was  to  use  the  hard  disk 
storage  on  the  ADAC  1000.   Since  the  hardware  communication  was  already 
established  between  the  MC68000ECB  and  the  ADAC  1000.  all  that  was 
needed  was  the  software  support  to  upload  and  download  programs  across 
the  serial  communications  line.   Fortunately,  the  operating  system  for 
the  MC68000ECB  contains  the  necessary  primitives  to  upload  either  S 
records  or  memory  dumps  to  a  host  computer  and  to  download  S  records 
from  a  host  computer.   With  the  available  facilities,  the  only  missing 
software  was  a  communications  handler  for  the  ADAC  1000.   This  program, 
named  "transfer",  was  relatively  easy  to  write  and  has  worked  well.   A 
complete  listing  of  the  transfer  program  is  presented  in  Appendix  E. 

The  other  major  deficiency,  i.e.  program  documentation,  was  nut  so 
easily  solved.   The  primary  reason  why  documentation  is  so  difficult  on 
the  MC68000ECB  is  that  it  is  impossible  to  include  comments  in  the 
source  code  written  on  the  single  board  computer.   This  problem  is  best 
avoided  by  the  use  of  a  68000  cross-assembler,  unfortunately,  they  are 
expensive  and  none  were  locally  available  at  the  time.   For  this 
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application,  the  following  procedure  was  used. 

1.  Type  in  the  software  on  the  MC68000ECB  console  using  the  single 
line  assembler  and  keep  accurate  notes  on  paper. 

2.  Save  the  program  segments  in  S-record  format  on  the  AUAC  1000  hard 
disk  for  future  use. 

3.  Combine  program  segments  into  modules  after  each  segment  was 
debugged  and  save  the  modules  in  both  S-record  format  and  disassem- 
bled format  on  the  ADAC  1000  hard  disk. 

4.  Add  comments  to  the  disassembled  modules  from  the  development  notes 
using  an  editor  on  the  ADAC  1000. 

In  order  to  facilitate  Ihe  last  item  above,  a  small  comment  editor  was 
written.   This  line  editor  has  the  capability  of  appending  loi>g  comments 
over  many  lines  of  assembly  code  and  is  Intelligent  about  page  formats. 
A  complete  listing  of  the  comment  editor  is  also  included  in  Appendix  E. 

Although  the  above  procedure  has  been  used  successfully  to  create 
all  of  the  MC68000ECB  software,  one  difficulty  still  exists.   There  is 
no  way  to  automatically  update  a  change  in  the  documentation  whenever  a 
change  is  made  in  the  source  code.   The  only  way  to  successfully  modify 
the  current  software  is  to  first  make  the  changes  on  the  MC68000ECB  and 
accurately  record  those  changes  on  scratch  paper.   Then  upload  the 
modification  to  the  ADAC  1000  in  S-record  format  for  permanent  storage. 
Finally,  edit  the  original  commented  file  and  make  the  changes  recorded 
on  scratch  paper.   This  can  be  a  very  difficult  procedure  which  requires 


the  utmost  attention  to  detail. 

Once  a  procedure  was  established  for  development  and  documentation 
of  software,  attention  was  focused  on  the  specific  algorithms  to  be 
developed.   As  was  previously  discussed,  there  are  four  primary  blocks 
of  code;  normal  sequential  execution,  software  interrupt  processing,  and 
hardware  interrupt  processing,  all  surrounded  by  a  common  data  struc- 
ture. 

The  normal  sequential  execution  block  consists  of  a  main  routine 
and  two  subroutines,  getdata  and  compute.   The  main  routine  provides  the 
control  for  all  normal  sequential  program  execution,  and  currently  exe- 
cutes an  interactive  environment  (not  real  time)  by  which  the  user  can 
manipulate  the  drive  train.   This  configuration  is  useful  for  data  map- 
ping and  system  debugging.   In  its  final  form,  the  main  routine  will 
provide  the  real  time  control  of  the  system.   The  getdata  subroutine  is 
called  once  each  time  through  the  main  routine.   The  purpose  of  the  get- 
data subroutine  is  to  gather  all  necessary  inputs  and  establish  the 
current  state  of  the  drive  line.   The  compute  subroutine  is  also  called 
once  each  time  through  the  main  routine.   The  purpose  of  the  compute 
subroutine  is  to  examine  the  current  state  of  the  drive  line  and  compute 
a  new  desired  state.   In  the  current  version,  the  compute  subroutine  is 
fully  interactive  so  that  the  user  inputs  the  new  desired  state.   In  its 
final  form,  the  compute  subroutine  will  implement  the  optimization  algo- 
rithm.  It  should  be  noted  that  throughout  the  main  routine  and  getdata 
subroutine,  numerous  software  interrupts  are  generated  in  order  to  ini- 
tialize and  communicate  with  all  system  hardware.   This  creates  an 


advantage  in  software  development  since  the  hardware  dependencies  are 
ail  grouped  together  in  the  software  interrupt  processing  block. 

The  hardware  interrupt  processing  block  is  the  least  developed  of 
the  four  primary  blocks.   In  Its  final  form,  this  block  will  be  respon- 
sible for  handling  interrupts  from  three  sources:   ADAC  1000.  real-time 
timer,  and  system  shutdown  requests.   Currently  only  the  ADAC  1000 
interrupt  is  supported.   The  reason  for  not  developing  the  additional 
facilities  is  that  they  are  features  of  the  final  implementation  and  are 
not  needed  for  data  collection  and  debugging.   Only  one  routine.  HOST- 
INT,  currently  resides  in  the  hardware  interrupt  processing  block. 
Host-int  provides  the  interrupt  handler  for  all  MC68000ECB  to  ADAC  1000 
communications.   In  its  final  form,  this  routine  will  control  communica- 
tions in  both  directions.   Currently,  the  routine  only  provides  for  data 
to  be  passed  from  the  MC68000ECB  to  the  ADAC  1000.   This  has  proved  suf- 
ficient for  drive  line  mapping.   Once  the  implementation  of  the  control 
algorithm  is  in  place,  bi-directional  data  flow  will  be  needed. 

The  software  interrupt  processing  block  provides  the  hardware 
interface  to  both  other  software  blocks.   This  group  of  software  has 
been  fully  developed  in  parallel  with  hardware  developments  and  has  been 
extensively  tested.   Following  is  a  brief  description  of  each  routine  in 
the  software  interrupt  processing  block. 

1.   P-INIT. 

P-init  initializes  the  peripherals  which  are  contained  on  the 
MC68000ECB. 


2.  E-INIT. 

E-init  initializes  the  peripherals  which  are  contained  on  the  I/O 
expansion  bus. 

3 .  SET-UP . 

Set-up  provides  an  interactive  mode  of  initializing  the  physical 
engine  and  transmissions.   This  procedure  is  executed  only  once  and 
must  be  preformed  after  all  computer  hardware  has  been  initialized. 

4 .  MOVE-TH . 

Move-th  provides  the  software  interface  to  the  stepper  motor  driver 
associated  with  the  engine  throttle. 

5.  MOVE-CVT. 

Move-cvt  provides  the  software  interface  to  the  stepper  motor 
driver  associated  with  the  CVT  transmission. 

6.  SET-GEAR. 

Set-gear  provides  the  software  interface  to  the  hardware  associated 
with  the  Power  Shift  transmission. 

7.  TEST-STABLE. 

Test-stable  insures  that  the  drive  line  actuators  are  stable  before 
releasing  control  back  to  normal  sequential  execution. 

8.  READ-RACK. 

Read-rack  provides  the  software  interface  to  the  absolute  encoder 
which  is  mechanically  attached  to  the  CAT  diesel  injector  pump. 


9.   READ-THSTP. 

Read-thstp  provides  the  software  interface  to  the  incremental 
encoder  which  is  mechanically  attached  to  the  throttle  stepper 
motor . 

10.  READ-FBSTP. 

Read-fbstp  provides  the  software  interface  to  the  incremental 
encoder  which  is  mechanically  attached  to  the  CVT  ring  drive. 

11.  REG-SAVE. 

Reg-save  saves  all  CPU  internal  registers  not  saved  as  a  part  of 
normal  context  switching. 

12.  REG-RESTORE. 

Reg-restore  restores  all  CPU  internal  registers  which  were  saved  by 
reg-save. 

The  above  software  package  is  fully  documented  in  Appendix  D.   Each 
of  the  routines  is  presented  along  with  general  discussions  about  common 
data,  argument  passing,  and  hardware  specifications.   Although  all  of 
the  software  is  in  assembly  code,  it  is  relatively  easy  to  read  since 
the  code  is  filled  with  comments.   In  order  to  supplement  Appendix  D,  a 
memory  map  (Table  1,  page  40)  has  been  specified.   These  memory  specifi- 
cations establish  allocated  space  for  all  user  software.   The  total 
memory  available  on  the  system  is  32  Kbytes.   The  operating  system 
(TUTOR)  requires  1280  bytes  of  scratch  and  the  RAM  vector  table  requires 
1024  bytes.   Therefore  a  total  of  30.464  bytes  are  available  for  user 
programs . 


Table  1  MC68000ECB  User  Memory  Allocation 


#  of  Bytes 

*   of  Bytes 

Description 

Address  Range 

Available 

Used 

Normal  Sequential  Execution 

Common  Data 

S0900  -  $ODFF 

1280 

208 

Main  Routine 

Data 

SOEOO  -  $0FFF 

512 

147 

Text 

$1000  -  S11FF 

512 

289 

Getdata  Subroutine 

Data 

S1200  -  S12FF 

256 

0 

Text 

$1300  -  $14FF 

512 

71 

Compute  Subroutine 

Data 

$1500  -  $1FFF 

2816 

49 

Text 

$2000  -  $4FFF 

12288 

165 

Software  Interrupt  Processing 

Common  Data 

$5000  -  $507F 

128 

81 

Local  Data 

$5080  -  $57FF 

1920 

385 

Text 

$6000  -  $6FFF 

4096 

1584 

Hardware  Interrupt  Processing 

Local  Data 

$5800  -  $5FFF 

2048 

45 

Text 

$7000  -  $7FFF 

4096 

273 

Totals 

30464 

3297 

In  summary,  the  purpose  of  this  chapter  is  to  discuss  the  work  com- 
pleted on  the  MC68000ECB.   This  work  includes  both  hardware  expansions 
and  software  developments.   A  general  overview  was  presented  to  give 
perspective  to  the  entire  system  development,  after  which  the  hardware 
and  software  were  discussed  in  more  detail.   During  these  discussions  a 
number  of  appendices  were  cited  which  give  specific  details  and  comments 
about  the  hardware  and  software  of  the  MC68000ECB. 
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The  objective  of  this  study  is  to  develop  and  test  a  computer  con- 
trol system  for  optimizing  the  performance  of  a  diesel  engine  and  a  con- 
tinuously variable  transmission  as  applied  in  an  agricultural  tractor. 
In  order  to  meet  the  objective,  a  number  of  tasks  were  defined. 

1.  Develop  laboratory  facilities  for  the  study  of  drive  line  effi- 
ciency. 

2.  Collect  and  analyze  data  to  determine  performance  relationships. 

3.  Develop  an  optimization  and  control  algorithm  for  the  drive  line. 

4.  Evaluate  dynamic  considerations  of  the  algorithm. 

5.  Test  and  evaluate  the  performance  of  the  algorithm. 

This  project  is  on-going  with  the  test  facility  completed,  the  perfor- 
mance data  collected,  and  the  basic  optimization  algorithm  outlined. 
Plans  for  future  work  include:   analyzing  the  collected  data  to  estab- 
lish relationships  between  control  inputs  and  drive  line  outputs,  and 
developing  a  computer  simulation  of  the  optimization  algorithm  in  order 
to  evaluate  dynamic  and  performance  considerations. 

This  thesis  has  presented  the  work  completed  on  the  development  of 
computer  facilities  for  implementation  of  data  acquisition  and  control 
algorithms  as  related  to  the  above  study.   In  order  to  fulfill  the 
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project's  computer  needs,  two  systems  were  developed.   One  system  uses 
an  ADAC  1000  data  acquisition  computer  and  is  responsible  for  the  super 
visory  functions,  data  recording,  sub-system  controls,  and  conversion  of 
aU  analog  data  into  digital  forms.   The  other  system  uses  a  Motorola 
MC68000ECB  single  board  computer  and  is  responsible  for  drive  line  con- 
trol and  optimization. 

The  work  completed  on  the  ADAC  1000  falls  into  two  main  categories; 
a  complete  system  upgrade,  and  development  of  a  large  software  package. 
The  structure  of  the  software  package  is  based  upon  concepts  used  In 
concurrent  programming  in  order  to  preserve  real  time  capabilities. 

The  work  completed  on  the  MC68000ECB  includes  both  hardware  and 
software  developments.   The  hardware  developments  include  bus  expansion 
buffering,  I/O  expansion,  optical  isolation,  and  digital  interfacing  to 
external  devices.   The  software  developments  provide  the  framework  for 
all  future  developments.   Currently,  the  software  executes  a  fully 
interactive  environment  which  is  useful  for  drive  line  mapping. 
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APPENDIX  A 
DRIVE  LINE  PARAMETERS 


46 


Primary  Engine  Parameters 

1 .  Output  Torque. 

The  engine  output  torque  is  measured  by  a  Lebow  Modei  1228-10k  in- 
line torque  ceil  with  a  maximum  rating  of  10000  inch-pounds.   The 
output  signal  is  a  millivolt  level  analog  signal  which  is  amplified 
and  filtered  by  a  Daytronic  Model  3270  strain  gage  conditioner  to 
achieve  a  0  to  5  volt  analog  signal  with  2  Hz.  low  pass  charac- 
teristics.  This  signal  is  then  digitized  at  the  1014  A/D  board  to 
give  a  final  resolution  of  .975  ft-lb/bit. 

2.  Output  Speed. 

The  engine  output  speed  is  measured  by  a  60-tooth  gear  In  conjunc- 
tion with  a  magnetic  induction  coil  both  of  which  are  mounted  to 
the  above  torque  transducer.   The  output  signal  is  a  millivolt 
level  analog  signal  which  is  amplified  and  filtered  by  a  Daytronic 
Model  3240  frequency  conditioner  to  achieve  a  0  to  5  volt  analog 
signal  with  2  Hz.  low  pass  characteristics.   This  signal  is  then 
digitized  on  the  1014  A/D  board  to  give  a  final  resolution  of  4 . 8">» 
rpm/bit . 

3.  Governor  Position. 

The  engine  injector  pump  has  been  modified  to  accept  a  Litton 
7NB10-5-S-1  absolute  position  encoder.   The  encoder  converts  the 
rotary  motion  of  the  pump  "rack"  to  a  standard  TTL  digital  signal. 
Although  the  encoder  gives  10  bits  output,  less  than  90  degrees  of 
rotation  are  achieved  over  the  range  of  rack  motion.   Therefore, 
only  eight  bits  are  actually  read  by  the  control  computer.   The 
final  resolution  of  the  rack  signal  is  176  levels  over  the  operat- 
ing range  of  the  rack. 

4.  Throttle  Position. 

The  engine  throttle  position  is  controlled  by  a  Sigma  Model  20 
2235D-28175  stepper  motor.   Control  of  the  stepper  motor  is 
achieved  through  hardware  on  the  MC68000ECB.   In  addition,  a  DEI 
Model  L250-100-ABZ-7400R-S  incremental  encoder  has  been  incor- 
porated into  the  throttle  drive  to  give  feedback  of  throttle  posi- 
tion.  The  output  of  the  encoder  is  in  TTL  digital  quadrature  for- 
mat which  is  decoded  through  hardware  on  the  MC68000ECB.   Total 
control  resolution  of  the  throttle  position  is  1980  steps  with  a 
total  of  3960  feedback  levels  over  the  range  of  throttle  movement. 

5.  Throttle  Home. 

A  single  bit  resolution  on/off  switch  is  also  provided  as  part  of 
the  above  throttle  controller.   The  purpose  of  the  this  switch  is 
to  initialize  the  "home"  or  zero  position  of  both  the  stepper  motor 
and  the  feedback  encoder. 

6.  Fuel  Flow. 

Engine  fuel  flow  is  measured  gravimetrically .   The  fuel  scale  con 
sists  of  an  eight  liter  container  suspended  from  an  Amteck  BA-25-LB 
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load  cell.   The  load  cell  is  powered  and  conditioned  to  a  high 
level  analog  signal  by  a  Calex  166  bridge  sensor.   This  signal  is 
then  digitized  on  the  1014  A/D  board  to  give  a  final  resolution  of 
.008924  lbs-fuel/bit. 

Secondary  Engine  Parameters 

1.  Oil  Pressure.  Engine  oil  pressure  is  measured  by  an  Omega  model 
PX-242-100G-5V  pressure  transducer.  This  signal  is  digitized  on 
the  1014  A/D  board  to  give  a  final  resolution  of  .0977  psi/bit. 

2.  Exhaust  Gas  Temperature. 

Engine  exhaust  gas  temperature  is  measured  by  an  Iron/Con  type 
thermocouple. 

3.  Engine  Coolant,  Oil,  and  Ambient  Air  Temperatures. 

These  temperatures  are  measured  by  Copper/Con  type  thermocouples. 

4.  Fuel  Temperature  and  API  Number. 

The  engine  fuel  temperature  Is  measured  with  an  ordinary  thermome- 
ter in  degrees  fahrenheit.   The  standard  fuel  API  number  is  also 
collected  by  hand  using  a  gravimetric  bulb.   This  data  is  needed  to 
convert  fuel  mass  flow  to  volumetric  flow.   The  data  Is  entered 
into  the  data  acquisition  structure  through  the  terminal  keyboard. 

5.  Emergency  Shut  Off. 

To  provide  for  immediate  system  shut  down  in  the  case  of  catas- 
trophic drive  line  failure,  a  throttle  plate  was  installed  in  the 
engine  intake  system.   Control  of  the  emergency  shut  off  is  provide 
by  a  manual  flip  switch  to  a  110  VAC  solenoid. 


Primary  CVT  Parameters 

1 .  Output  Torque. 

The  CVT  output  torque  is  measured  by  a  Lebow  Model  1228-10k  In-line 
torque  cell  with  a  maximum  rating  of  10000  inch-pounds.   The  output 
signal  is  a  millivolt  level  analog  signal  which  is  amplified  and 
filtered  by  a  Daytronic  Model  3270  strain  gage  conditioner  to 
achieve  a  0  to  5  volt  analog  signal  with  2  Hz.  low  pass  charac- 
teristics. This  signal  is  then  digitized  at  the  1014  A/D  board  to 
give  a  final  resolution  of  .9735  ft-lb/bit. 

2.  Output  Speed. 

The  CVT  output  speed  is  measured  by  a  60-tooth  gear  in  conjunction 
with  a  magnetic  induction  coil  both  of  which  are  mounted  to  the 
above  torque  transducer.   The  output  signal  is  a  millivolt  level 
analog  signal  which  is  amplified  and  filtered  by  a  Daytronic  Model 
3240  frequency  conditioner  to  achieve  a  0  to  5  volt  analog  signal 
with  2  Hz.  low  pass  characteristics.   This  signal  is  then  digitized 
on  the  1014  A/D  board  to  give  a  final  resolution  of  4.8818  rpm/blt. 


3.  Ring  Position. 

The  CVT  ring  position  is  controlled  by  a  Sigma  Model  21-42701) 
200F03  stepper  motor.   Control  of  the  stepper  motor  is  achieved 
through  hardware  on  the  MC68000ECB.   In  addition,  a  BE  I  Model 
L25G-100-ABZ-7400R-S  incremental  encoder  has  been  incorporated  into 
the  CVT  ring  drive  to  give  feedback  of  ring  position.   The  output 
of  the  encoder  is  in  TTL  digital  quadrature  format  which  is  decoded 
through  hardware  on  the  MC68000ECB.   Total  control  resolution  of 
the  ring  position  is  3400  steps  with  a  total  of  18891  feedback  lev- 
els over  the  range  of  ring  movement. 

4 .  Ring  Home. 

A  single  bit  resolution  on/off  switch  is  also  provided  as  part  of 
the  above  CVT  ring  controller.   The  purpose  of  the  this  switch  is 
to  initialize  the  "home"  or  zero  position  of  both  the  stepper  motor 
and  the  feedback  encoder. 

Secondary  CVT  Parameters 

1.   Oil  Temperature  Controller  Inputs. 

The  CVT  input  oil  temperature  controller  has  a  number  of  inputs. 
The  following  temperatures  are  measured: 


Input  oil  temperature. 

Exit  oil  temperature. 

Reservoir  oil  temperature. 

Heat  exchanger  oil  input  temperature. 

Tap  water  temperature. 

Heat  exchanger  water  input  temperature. 

Heat  exchanger  water  exit  temperature. 


All  of  these  temperatures  are  measured  by  Copper/Con  type  thermo- 
couples.  In  addition  to  the  temperatures,  the  controller  also 
requires  an  input  oil  temperature  set  point  which  is  entered  at  the 
terminal  keyboard. 

Oil  Temperature  Controller  Ouputs. 

The  controller  has  two  outputs,  each  which  sets  the  status  of  the 
water  heater  elements.   The  first  element  is  controlled  digitally 
as  on/off,  and  the  second  element  is  controlled  by  the  1021  P/A 
board  and  a  Johnson  Model  DQ-4100  solid  state  electric  heat  control 
unit.   Total  control  output  resolution  is  2.44111  IV/hit. 

Oil  Flow  and  Pressure. 

The  oil  flow  and  pressure  are  monitored  to  both  branches  of  the  oil 
loop.   Pressure  is  measured  by  a  standard  dial  pressure  gauge,  and 
flow  is  measured  by  two  magnetic  induction  vane  type  flow  meters. 
The  flow  meters  output  is  a  millivolt  level  analog  signal.   This 
signal  is  preconditioned  to  be  read  by  the  1018  pulse  counter 
board.   The  signal  pulse  trains  are  averaged  over  a  one  second  time 
base.   Conversion  is  then  made  to  oil  flow  in  gal/min. 
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Primary  Power  Shift  Parameter 

The  power  shift  gear  ratio  is  seiected  by  appropriate  engagement  of 
six  12  VDC  electro-hydraulic  solenoids.   Control  of  these  solenoids  is 
accomplished  through  a  digital  interface  to  the  MC68000ECB.   Software 
access  of  the  current  gear  ratio  is  made  through  the  communications  link 
to  the  MC68000F.CB. 

Secondary  Power  Shift  Parameters 

1 .  Oil  Pressure. 

Oil  pressure  is  measured  by  a  standard  oil  pressure  dial  gauge. 

2.  Oil  Temperature. 

Oil  temperature  is  measured  by  a  Copper/Con  type  thermocouple. 


Primary  Dynamometer  Parameters 

1 .  Input  Torque. 

The  dynamometer  input  torque  is  measured  by  a  Transducers  Model 
T63H-200-C205  dual  bridge  load  cell  attached  to  15.756  inch  lever 
arm.   One  output  of  the  load  cell  is  used  as  feedback  for  the 
dynamometer  controller.   The  other  output  is  amplified  and  filtered 
by  a  Uaytronic  Model  3270  strain  gage  conditioner  to  achieve  a  0  to 
5  volt  analog  signal  with  2  Hz.  low  pass  characteristics.   This 
signal  is  then  digitized  at  the  1014  A/D  board  to  give  a  final 
resolution  of  .6339  ft-lb/bit. 

2.  Input  Speed. 

The  dynamometer  input  speed  is  measured  by  a  60  tooth  gear  in  con 
junction  with  two  magnetic  induction  coils.   One  of  the  pickups  is 
used  as  feedback  for  the  dynamometer  controller.   The  other  pickup 
is  amplified  and  filtered  by  a  Daytronic  Model  3240  frequency  con- 
ditioner to  achieve  a  0  to  5  volt  analog  signal  with  2  Hz.  low  pass 
characteristics.   This  signal  is  then  digitized  on  the  1013  A/D 
board  to  give  a  final  resolution  of  4.859  rpm/bit. 

Secondary  Dynamometer  Parameters. 

Both  the  input  and  output  cooling  water  temperatures  are  measured 
using  Copper/Con  type  thermocouples.   These  temperatures  are  used  to 
provide  dynamometer  overloading  protection. 
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Temperature  Conversion  Notes. 

All  of  the  above  thermocouple  outputs  are  digitized  on  the  1022  A/D 
board.   Three  types  of  thermocouple  types  are  supported  in  the  test  lab. 
They  are  type  T  (Copper/Con),  type  J  (Iron/Con),  and  type  K 
(Chromel/Alumel) .   The  following  table  has  been  established  for  tempera 
ture  conversions. 


Table  2  Temperature  Conversions 


TYPE 

Sensitivity 
mv/bit 

Regression  Equation 
Temp(C)=  ( )    (R"2  =  .99991-) 

Valid  Range 
deg  C 

T 
J 
K 

0.00976 

0.0244 

0.0488 

( ( .007727*mv-.436)*mv+24.9l)*mv 

( ( - . 0003982*mv- . 0008997 ) *mv+18 . 52 ) *mv 

( ( .001582*mv-.09563)*mv+25.5)*mv 

0  to  400 
0  to  750 
0  to  1360 
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APPENDIX  B 
ADAC  1000  SUPERVISOR  SOFTWARE  LISTINGS 


a*********************************************************************** 


*  SUPPLEMENTAL  LISTING  FOR  ADAC  1000  COMPUTER 

*  CVT  --  ENGINE  PROJECT  --  SUPERVISOR 
* 

*  DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 

* 

*  AUTHOR:        KENT  D.  FUNK 

*  DATE:  4/5/85 

*  FILE:         Makefile 

* 

****************************************************** w**************** 


#This  file  contains  the  rules  necessary  to  create 

#  a  program  by  the  name  "cvt" . 
* 

#Tn  order  to  run  the  program: 

#  -->  kmon  cvt 


#  define  global  substitution  variables 

CC1  =  cc  -c 

CC2=  cc  -0  -o 

OBJECTS'  main.o  define. o  keyboard. o  doalarm.o  mon.o  cvtlinear.o 

LIB=  -ladac  -lm 


#  define  rules  and  dependencies  for  creation  of  object  files 
define. o  :  define. c  control. h 

S(CC1)  define. c 
main.o  :  main.c  control. h 

S(CC1)  main.c 
keyboard. o  :  keyboard. c  control. h 

S(CC1)  keyboard. c 
doalarm.o  :  doalarm.c  control. h 

S(CC1)  doalarm.c 
mon.o  :  mon.c  control. h 

S(CC1)  mon.c 
cvtlinear.o  :  cvtlinear.c  control. h 

S(CC1)  cvtlinear.c 


#  define  rules  and  dependencies  for  executables 
cvt  :  S( OBJECTS) 

$(CC2)  cvt  S(OBJECTS)  S(LIB) 


53 


**************  i********************************************************* 


C-SOURCE  LISTING  FOR  ADAC  1000  COMPUTER 
CVT  --  ENGINE  PROJECT  --  SUPERVISOR 

DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 


AUTHOR : 

KENT  D.  FUNK 

DATE: 

4/5/85 

FILE: 

control .h 

************************************************************************ 

/*  Declare  global  variables  used  in  main  by  other  functions  */ 

♦define  N068K 

int  sigalarmf ) : 

int  sigkbdreqO; 

int  kbdflag,  alarmflag; 

int  fd68k; 

/*  definitions  of  attribute  in  scprint  function  */ 

♦define   NORM  0 

♦define   UNDERLINE      1 
♦define   REVERSE        2 

/*  set  up  data  file  definitions  */ 

FILE  *dfptr.  *fopen(); 
char  dfnamef 101 ; 

/*  set  up  structures  for  gman  routine  */ 

struct  gv  {         /*  real  variables  */ 

char  gvnameF7] ; 

double  *gvad: 
>  gvs  f ] ; 
struct  fig  {        /*  integer  variables  */ 

char  f lgname[7] ; 

int  *flgad; 
}  flags[); 

/*  set  up  structure  for  high  level  data  acquisition  */ 

struct  hlda  { 

char  parml7]  ; 

int  chan,  gain: 

double  off,  calcon; 

int  a,  b i 
}  hldaxM: 

/*  set  up  structure  for  temperature  data  acquisition  */ 

struct  tnipda  { 

char  parml 7  1 ; 
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int  chan.  type; 
int  c,  d; 
)  tmpdaxf]; 

/*  set  up  structure  for  pulse  card  data  acquisition 
struct  pulse  { 

char  parm[7] ; 

int  chan; 

double  tbase,  constl ,  const2; 

int  e.  f; 
}  pulsexf] ; 

/*  set  up  structure  for  monitor  subroutine  limits 
struct  limits  { 

double  *max,  *warn; 
>  hl_lim[],  tmp_lim[l,  pul_lim[]; 

/*  set  up  space  for  command  line 
char  keyword [5] ; 
char  nameflO] ; 
double  data; 


*/ 


*/ 


/*  global  vari 
/*  engine 
double  ewtpmx; 
double  ewtpwn; 
double  eegtmx; 
double  eegtwn; 
double  erpmmx; 
double  erpmwn; 
double  etrkmx; 
double  etrkwn; 
double  enopmn; 
double  enopwn; 
double  enotwn; 
double  enotmx; 
double  enffmn; 
double  api ; 
double  ftmp; 
char  point[10| 


ables  declared 
parameters  */ 

/*  engine  water  temp  max 

/*  engine  water  temp  warning 

/*  exhuast  gas  temp  max 

/*  exhuast  gas  temp  warning 

/*  engine  rpm  max 

/*  enigne  rpm  warning 

/*  eng  tork  max 

/*  eng  tork  warning 

/*  engine  oil  pressure  min 

/*  engine  oil  pressure  warning 

/*  engine  oil  temp  warning 

/*  engine  oil  temp  max 

/*  wt  of  fuel  in  bucket  >  2  lbs 

/*  fuel  api  number 

/*  fuel  temperature 

/*  engine  map  referance  point 


V 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
V 
•/ 
*/ 
V 
V 

*/ 

*/ 


/*  cvt  parameters  */ 


double 

tcvtmx; 

/ 

double 

tcvtwn ; 

/ 

double 

toomx ; 

/ 

double 

toomn; 

/ 

double 

twimx; 

/: 

double 

twiwn ; 

/: 

double 

offmn; 

/ 

double 

offmx; 

/ 

double 

ofrmn; 

/■• 

cvt  oil  temp  exit  mx  used  by  monitor 
/*  cvt  oil  temp  exit  warn  used  by  monitor 

cvt  oil  temp  in  max  used  by  monitor 

cvt  oil  temp  in  min  used  by  monitor 

max  tmp  of  water  in  hx 
/*  warning  tmp  of  water  in  hx 

cvt  oil  flow  front  min 

cvt  oil  flow  front  max 
/*  cvt  oil  flow  rear  min 


V 

V 
*/ 
*/ 
*/ 
«/ 
*/ 
V 
*/ 


double  ofrmx; 
double  trpmmx: 
double  trpmwn; 


/*  cvt  oil  flow  rear  max 

/*  cvt-pwrshift  rpm  max 

/*  cvt-pwrshlft  rpm  warning 


/*  pwr-shift  parameters  */ 
double  ttrkmx;      /*  cvt-pwrshift  tork  max 
double  ttrkwn;      /*  cvt-pwrshift  tork  warning 
double  psotmx;      /*  pwr  shift  oil  temp  max 
double  psotwn:      /*  pwr  shift  oil  temp  warning 

/*  final  drive  parameters  */ 
double  fdotmx;      /*  final  drive  oil  temp  max 
double  fdotwn;      /*  final  drive  oil  temp  warning 

/*  dyno  parameters  */ 


double  dwotmx 
double  dwotwn 
double  drpmmx 
double  drpmwn 
double  dtrkmx 
double  dtrkwn 


/*  dynomoter  water  temp  out  max 

/*  dyno  water  temp  out  warning 

/*  dyno  rpm  max 

/*  dyno  rpm  warning 

/*  dyno  trk  max 

/*  dyno  trk  warn 
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V 
*/ 
*/ 


*/ 
V 


»/ 
*/ 
*/ 
*/ 
*/ 
*/ 


/*  ambient  parameters  */ 
double  airthl;      /*  ambient  air  temp  hi 
double  airtlo:      /*  ambient  air  temp  lo 

/*  program  control  flags  */ 


int  tintint: 
int  montim: 
int  dyctim; 
int  hrctim: 
int  dattim: 
int  datmax; 
int  monflg; 
int  dycflg; 
int  hrcflg; 
int  datflg; 
int  orphan; 
int  online; 
int  waitmx: 
int  daval ; 
int  ttlval; 


/*  m68k  variables 

int  req;  /* 

int  rack;  /* 

int  thstp;  /* 

int  rgstp;  /* 

int  gear;  /* 

int  fbstp;  /* 

/*  heater  control 


/*  alarm  interupt  time  (sec) 

/*  monitor  loop  time  (sec) 

/*  dyno  loop  time  (sec) 

/*  heater  control  loop  time  (sec) 

/*  data  collection  loop  time  (sec) 

/*  data  collection  interval  (number  of  samples) 

/*  monitor  enable 

/*  dyno  enable 

/*  heater  enable 

/*  data  loop  enable 

/*  kmon  exiting  flag 

/*  m68k  online  flag 

/*  wait  state  for  request  call  on  68k 

/*  temporary  value  for  D/A  in  heater 

/*  temporary  value  for  TTL  in  heater 


*/ 

control  flag  for  request 

rack  reading 

throttle  step  reading 

ring  step  reading 

PS  gear 

cvt  feedback  reading 

input  */ 


*/ 
*/ 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
V 
»/ 
*/ 
V 

*/ 
*/ 
*/ 
V 

*/ 
•/ 
*/ 

V 

*/ 
*/ 


double  hset;   /*  cvt  oil  temp  in  as  set  point  for  heater  control 


************************************************************************ 


*     C-SOURCE  LISTING  FOR  ADAC  1000  COMPUTER 
»         CVT  —  ENGINE  PROJECT  --  SUPERVISOR 


*     DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 


AUTHOR : 

KENT  D.  FUNK 

DATE: 

4/5/85 

FILE: 

define. c 

************************************************************************ 


/*  This  file  contains  all  compile  definitions  of  global  variables 
#include  <stdio.h> 
♦include  "control. h" 
♦include  <adac.h> 


/*  define  data  file  default 
char  dfname[10]=  "d.tmp"; 


/*  gl 

doubl 
doubl 
doubl 
doubl 
doubl 
doubl 
doubl 
doubl 
doubl 
doubl 
doub] 
doubl 
doubl 


obal  var 

/*  engin 

e  ewtpmx 

e  ewtpwn 

e  eegtmx 

e  eegtwn 

e  erpmmx 

e  erpmwn 

e  etrkmx 

etrkwn 

enopnm 

enopwn 

enotwn 

enotmx 

enf fmn 


iables  ini 

paramete 

105.0 

93.0 

705.0 

650.0 

2500.0 

2300.0 

240.0 

260.0 

30.0 

40.0 

93.0 

105.0 

5.0 


tialized 

/ 


/*  engine  water  temp  max 

/*  engine  water  temp  warning 

/*  exhuast  gas  temp  max 

/*  exhuast  gas  temp  warning 

/*  engine  rpm  max 

/*  enigne  rpm  warning 

/*  eng  tork  max 

/*  eng  tork  warning 

/*  engine  oil  pressure  min 

/*  engine  oil  pressure  warning 

/*  engine  oil  temp  warn 

/*  engine  oil  temp  max 

/*  minimum  fuel  in  the  fuel  bucket 


•/ 


*/ 

" 

*/ 

*/ 

*/ 

«/ 

*/ 

V 

*/ 

*/ 

* 

*/ 

*/ 


/*  cvt  parameters  */ 


double  tcvtmx;- 
double  tcvtwn= 
double  toomx= 
double  toomn= 
double  twimx- 
double  twiwn= 
double  offmn^ 
double  offmx= 
double  ofrmn= 
double  ofrmx= 
double  trpmmx^ 


75.0 
65.0 

2 

2 
65 
60 

4 

5 

4 

5.5 
1750.0 


/*  cvt  oil  temp  exit  mx  used  by  monitor  */ 

/*  cvt  oil  temp  exit  warn  used  by  monitor  */ 

/*  cvt  oil  temp  in  cvt,  max  used  by  monitor  */ 

/*  cvt  oil  temp  in  cvt,  min  used  by  monitor  */ 

/*  water  temp  in  max  */ 

/*  warning  water  in  tmp  */ 

/*  cvt  oil  flow  front  min  */ 

/*  cvt  oil  flow  front  max  */ 

/*  cvt  oil  flow  rear  min  */ 

/*  cvt  oil  flow  rear  max  */ 

/*  cvt-pwrshift  rpm  max  */ 
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double  trpntwn=  1610.0:    /*  cvt-pwrshift  rpm  warning 


/*  pwr-shift  parameters  */ 
double  ttrkmx-  667.0;    /*  cvt-pwrshift  tork  max 

/*  cvt-pwrshift  tork  warning 

/*  pwr  shift  oil  temp  max 

/*  pwr  shift  oil  temp  warning 


uouuie  ccrKmx=  bbi  .  u 

double  ttrkwn=  615.0 

double  psotmx=  100.0 

double  psotwn=  90.0 


/*  final  drive  parameters  */ 
double  fdotmx=   100.0;   /*  final  drive  oil  temp  max 
double  fdotwn=   90.0;    /*  final  drive  oil  temp  warning 


/*  dyno  parameters 
double  dwotmx=  45.0; 
double  dwotwn=  40.0; 
double  drpmmx=  4000.0; 
double  drpmwn=  3800.0; 
double  dtrkmx=  190.0; 
double  dtrkwn=   175.0; 


'/ 

/*  dynomoter  water  temp  out  max 
/*  dyno  water  temp  out  warning 
/*  dyno  rpm  max 
/*  dyno  rpm  warning 
/*  dyno  trk  max 
/*  dyno  trk  warn 


/*  ambient  parameters  */ 
double  airthi=   32.0;    /*  ambient  air  temp  hi 
double  airtlo=   22.0;    /*  ambient  air  temp  lo 


/*  program 

con 

int  timint- 

1 

int  montim= 

10 

int  dyctim= 

10 

int  hrctim= 

5 

int  dattim= 

10 

int  datmax= 

18 

int  monflg= 

1 

int  dycflg= 

0 

int  hrcflg= 

0 

int  datflg= 

0 

int  daval= 

0 

int  ttlval= 

0 

int  orphan= 

0 

int  online- 

0 

int  waitmx^ 

2 

trol  flags 


7 


/*  number  of  seconds  between  interupts 

/*  monitor  loop  time  in  seconds 

/*  dyno  loop  time  in  seconds 

/*  heater  loop  time  in  seconds 

/*  data  collection  loop  time  in  seconds 

/*  maximum  number  of  data  sets 

/*  monitor  loop  enable 

/*  dyno  loop  enable 

/*  heater  loop  enable 

/*  data  loop  enable 

/*  heater  D/A  value 

/*  heater  TTL  value 

/*  flag  set  when  CVT  is  backgrounded 

/*  initially  m86k  is  offline 

/*  wait  state  for  data  request  on  68k 


*/ 
*/ 

*/ 
*/ 


*/ 
*/ 
*/ 
V 
V 
*/ 


*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


/*  initialize  the  structure  gv 
struct  gv  gvs[]  { 

"ewtpmx",  Sewtpmx. 

"ewtpwn".  Sewtpwn. 

"eegtmx",  Seegtmx, 

"eegtwn".  &eegtwn , 

"erpmmx".  &erpmmx , 

"erpmwn",  &erpmwn. 

"etrkmx",  &etrkmx. 


/*  real  variable  name  and  storage  address 
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"etrkwn" , 
"enopmn" , 
"enopwn" , 

"enotwn" , 
"enotmx" . 
"enffmn" , 
"tcvtmx" , 
"tcvtwn" , 
"toomx" , 
"toomn" , 
"hset" , 
"twimx" , 
"twiwn" , 
"of fmn" , 
"of fmx" , 
"ofrmn" , 
"ofrmx" , m 
"trpmmx" , 
" trpmwn" , 
"ttrkmx" , 
" ttrkwn" , 
"psotmx" . 
"psotwn" , 
"fdotmx" , 
"fdotwn" , 
"dwotmx" , 
"dwotwn" . 
"drpmmx" , 
"drpmwn" , 
"dtrkmx" , 
"dtrkwn" , 
"airthi" , 
"airtlo". 


&etrkwn, 

&enopmn, 

Senopwn. 

&enotwn, 

&enotmx, 

Serif  fmn, 

&tcvtmx, 

&tcvtwn, 

Stoomx, 

&toomn, 

&hset , 

&twimx. 

&twiwn, 

&offmn. 

&of fmx, 

&ofrmn, 

&ofrmx, 

&trpmmx, 

&trpmwn . 

&ttrkmx, 

&ttrkwn. 

&psotmx, 

&psotwn, 

&fdotmx, 

&fdotwn, 

&dwotmx , 

Adwotwn, 

Adrpmrnx. 

&drpmwn , 

&dtrkmx, 

Adtrkwn, 

Aairthi, 

&airtlo. 


/*  error  check  at  end  of  structure 


/*  Initialize  the  Integer  variable 
struct  fig  f lags[ ]  { 


"timint" , 
"montim" , 
"dyctim" , 
"hrct im" . 
"dattim" , 
"datmax" , 
"monf Ig" , 
"dycf lg" , 
"hrcflg" , 
"datflg", 
"daval" , 
"ttlval" . 


&timint , 
&montim . 
fidyctim. 
Ahrctim, 
Sdattim, 
&datmax, 
&monf lg, 
fcdycflg, 
&hrcflg, 
&datflg, 
&daval , 

&ttlval, 


int  variable  name  and  address 


*/ 
*/ 


"online".  Sonline, 
"waitmx",  &waitmx, 


r>9 


/*  Initialize  high  level  data  acquistion  structure 


struct  hlda  hldaxf] 


erpm 
"etrk" 
"trpm" 
"ttrk" 
"drpm" 
"dtrk" 
"enop" 
"enf'f" 


26. 
28, 
27, 
29, 
34, 
32, 
16, 
25. 


{ 

-2, 
1. 

1 

1, 

-1. 

-2 

209. 

277, 


>: 


4.859086, 
0.975161, 
4.881813, 
0.973510, 
4.859086. 
0.482775, 
0.097704, 
0,008924, 

/*  error  check 


4, 
5, 
4, 
5, 
4, 
5, 
10, 


/*  engine  rpm 

/*  engine  tork 

/*  cvt-trans  rpm 

/*  cvt-trans  tork 

/*  dyno  rpm 

/*  dyno  tork 

/*  engine  oil  pressure 

/*  engine  fuel  flow 

at  end  of  structure 


*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 


/*  initialize  temp  data  acqui 

struct  tmpda  tmpdax[]  ( 

"ewtp",  20,  3,   8,   8, 

"eegt",  30,  0,   8,   7, 

"enot",  21,  3,   8,   9, 

"tcvt",  26,  3, 

"twi".  29,  3, 

"psot".  23 

"fdot",  22 

"dwot",  17 

"too".  27 

"airt",  19 

"ttnjt",  25,  3,  23, 

"toi",  24.  3,  23. 

"dwit".  18.  3.  55, 

"two",  28,  3.  23, 


8, 

8, 

23, 

23. 
3,  39. 
3,  39, 
3.  55. 
3,  23, 
3,  39, 


6, 
4, 
5, 
7, 
7, 
7, 
9, 

10, 
6, 

11, 


>; 


stion  structure  */ 

/*  engine  water  tmp  */ 

/*  engine  exhaust  gas  tmp  */ 

/*  engine  oil  temp  */ 

/*  cvt  oil  tmp  exit  */ 

/*  water  temp  of  hx  loop  */ 

/*  pwr  shift  oil  tmp  */ 

/*  final  drive  oil  tmp  */ 

/*  dyno  water  outlet  temp  */ 

/*  cvt  oil  tmp  in  */ 

/*  ambient  air  tmp  */ 

/*  cvt  oil  tmp  @  tank  */ 

/*  cvt  oil  tmp  at  hx  */ 

/*  dynot  water  inlet  temp  */ 

/*  cvt  water  temp  exit  */ 

/*  error  checking  at  end  of  structure   */ 


/*  initialize  pulse  card  data  acquistion  structure 

struct  pulse  pulsexT]  { 

"off".  0.  1.0.  1.414.  5.572.  23.  12,    /*  cvt  oil  flow  front 
"ofr".  1,  l.o.  1.05,  7.777.  23.  13.    /*  cvt  oil  flow  rear 
""-  /*  error  check  at  end  of  structure 

>: 


*/ 
V 
*/ 


/*  initialize  monitor  limits  structure 

struct  limits  hl_llm[]  { 

Serpmmx,  &erpmwn.    /*  max-warn  storage  addresses 

&etrkmx.  Setrkwn. 


>   struct  hlda  */ 


Strpnunx,  Strpmwn, 

Sttrkmx,  Sttrkwn. 

Sdrpmrnx,  &drpmwn, 

&dtrkmx,  &dtrkwn , 

Senopmn.  Senopwn. 


struct  limits  tmp_limf]  { 

Sewtpmx,  Sewtpwn,    /*  max-warn  storage  addresses  »>  tmpda 


•/ 


&eegtmx,  Seegtwn, 
&enotmx,  fcenotwn, 


Stcvtmx, 

&twimx, 

Spsotinx, 

Afdotmx, 

Sdwotmx, 

Stoomx. 

Sairthi, 


Stcvtwn, 

&twiwn, 

Spsotwn, 

&f dotwn , 

&dwotwn, 

&toomn, 

Sairtlo, 


>; 


struct  limits  pul_lim[]  { 
Soffmx,  &offmn,     /* 
Stofrmx.  &ofrmn, 

>: 


max-min  storage  addresses  *>  struct  pulse  */ 


/*  initialize  m68k  variables 


*/ 


int 

req= 

0 

int. 

rack= 

0 

int 

thstp= 

0 

int 

rgstp= 

0 

Int 

gear= 

0 

int 

fbstp= 

0 

/*  heater  control  input 
double  hset=   65.0;  /*  cvt 


oil  temp-in  set  point  for  heater  control 


*/ 


61 


*****************************************************************,,;, a,^** 


*  C-SOURCE  LISTING  FOR  ADAC  1000  COMPUTER 

*  CVT  --  ENGINE  PROJECT  —  SUPERVISOR 

* 

*  DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 

* 

*  AUTHOR:         KENT  D.  FUNK 

*  DATE:  4/5/8S 

*  FILE:         main.c 

* 

************************  ****************************************  ***  ***** 

♦include  <signal.h> 
♦include  <stdio.h> 
♦include  "control. h" 
♦include  <adac.h> 

/*  this  function  is  used  to  handle  unix  alarm  interuputs  */ 

sigalarm( )  { 

signal (SIGALRM,  sigalarm); 

alarm! timint ) : 

alarmflag++; 
) 

/*  this  function  handles  the  keyboard  process  interupt  */ 

sigkbdreq! )  ( 

signaKSIGINT.  sigkbdreq); 

kbdf  lag*--*-; 
} 


/******  MAIN!)  *«»***/ 

maintargc.  argv) 

int  argc; 

char  **argv; 

< 

int  err: 

signal(SIGQUIT,SIG_IGN) ; 
signal (SIGALRM,  sigalarm): 
signal (SIGINT, sigkbdreq) ; 

/*  open  up  the  68k  line  here  */ 

if  ((fd68k  =  open("/dev/ttydO" ,  2))  <  0)  { 

fprintf (stderr .  "cannot  open  68k  line\n"); 

fprintf (stderr,  "   cvt  exiting\n"); 

exit(l) : 
> 


alarm(timint) ; 
adacinit ( ) ; 
paintf )  ; 


1,2 


loop: 


err=  do68k(l,  0) 
while(alarmf lag 

doalarm ( ) ; 
if(kbdflag) 

keyboard! ) ; 
goto  loop; 


>  0) 


do68k(entry,  option) 
int  entry,  option; 
{ 

static  int  first=  0; 

int  error,  ret,  num; 

char  rdbuff80]; 

char  *lptr; 

if  (first  »-  0)  { 
*rdbuf =  '  ' ; 
ret=  0; 
first=  1; 

> 


68k  handler 


error=  0; 

if  (online  «  0)  { 

error=  1;  /*  68k 
goto  not  here; 

> 


is  not  here  now  */ 


switch(entry)  { 

case  1:        /*  entry  point  for  main  */ 
ret=  read(fd68k.  rdbuf,  80); 
if  (ret  >  0)  ( 

rdbuf [ret ]=  '  ' ; 

switch(*rdbuf )  ( 
case  ' R' ; 

servicef ) ; 

break; 
case  'S ' : 

break; 
default : 


> 


*rdbuf=  '  ' ; 

ret  =  0; 
> 
break; 

case  2:        /*  entry  point  for  monitor  */ 
if  (req)  { 

goto  not_here; 
} 
if  (option  ==  1)  { 

write(fd68k,  "R" ,  1); 
break; 
) 
if  (option  «  2)  ( 

ret  =  read(fd68k,  rdbuf,  80): 
if  (ret  >  0)  ( 

rdbuf (ret ] =  '  ' ; 
scprintfl,  1,  0." 

scprint(l,  1,  0,  "%s" ,    rdbuf); 
moveto(99,99) ; 
if  ("rdbuf  !=  'S' )  ( 
error=  5; 
break; 
> 

iptr=  rdbuf  +  1; 

num=  sscanf(iptr,  "%d  %d  %d  %d  %d" , 
&rack,  Sthstp. 
Srgstp,  Sfbstp, 
Sgear) ; 
if  (num  !=  5)  ( 

error=  4; 
> 

*rdbuf =  '  ' ; 
ret=  0; 
break; 
> 
error=  3: 
) 
break; 

case  3:        /*  entry  point  for  data  routines  */ 
if  (option  ■»  1)  ( 

write(fd68k,  "N" .  1); 
break; 
) 
if  (option  »=  2)  { 

ret=  read(fd68k,  rdbuf.  80); 
if  (ret  >  0)  ( 

rdbuf [ret ]=  '  ' : 
scprintd,  1.  0." 

scprintU.  1,  0.  "*a",  rdbuf): 


move  to (99, 99) ; 
if  (*rdbuf  I-  'S' )  { 
error=  5; 
break; 
> 

lptr»  rdbuf  +  1; 

num=  sscanf(lptr,  "3>d  %d  %i  %A   Ssd" 
Srack,  Sthstp, 
Srgstp,  Sfbstp, 
&gear ) ; 
if  (num  1  =  5)  ( 

error=  4; 
> 

*rdbuf=  '  ' ; 
ret=  0: 
break: 
> 

error=  3 ; 
> 
break; 


default ; 

error=  2 ; 
> 

not_here : 

return(error) ; 
> 


/******  Handle  a  66k  request. 

service! ) 

{ 

/*  provide  68k  data  services  here  */ 
/*  Not  Developed  */ 

> 


/* 

do68k()  error  handling. 

general : 

0  =■  normal 

1  "  68k  not  here 

2  "  entry  option  error  for  do68k  call 

specific  by  entry  and  option; 
1  x 


Kb 


2    I 
2  2 


3  1 
3  2 


3=  new  line  not  here  yet  (data  not  current) 
4=  wrong  number  of  arguements  in  new  line. 
5=  'S'  tag  missing  on  new  line. 


3=  new  line  not  here  yet  (data  not  current) 
4=  wrong  number  of  arguements  in  new  line. 
5=  'S'  tag  missing  on  new  line. 


********************************,,  «<•>«)<»»««>»<««»»»>*«<»»«> 


*  C-SOURCE  LISTING  FOR  ADAC  1000  COMPUTER 

*  CVT  --  ENGINE  PROJECT  --  SUPERVISOR 
* 

*  DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 


AUTHOR: 

KENT  D.  FUNK 

DATE: 

4/5/85 

FILE: 

keyboard. c 

***********************************  **************»M!,,,  ,,„,,,,  J,, „.,,,,,,,,,,,.,,, 

♦include  <stdio.h> 
♦include  "control. h" 


/******  Keyboard!)  ** 

/* 

Keyboard  service  routine. 

Purpose:  Interpret  the  first  letter  of  the  keyword  and  direct 
program  control  to  the  proper  routine.  */ 
keyboard) ) 
{ 

char  linefSO] ; 

char  *ptr; 

char  *nptr; 

int  n: 

kbdflag — ;  /*  negates  calling  condition  */ 

fgetsdine,  80.  stdin)  ; 
if  (feof (stdin)) 

{ 

printf ("exiting  gracefully\n" ) ; 

exit(0) : 

) 
if  (strcmpdine,  "!STOP\n")  •»  0)       /*  Kmon  leaving  */ 

orphan=  1 ; 

return: 

> 
if  (strcmpdine,  "!CONT\n")  —  0)       /*  Kmon  is  back  */ 

{ 

orphan=0: 

paint! )  : 

return; 

) 
stdin- >_cnt  =  0;         /*  purge  the  stdin  */ 
n=  sscanfdine.  "*s  *s  %f " ,    Skeyword,  Sname,  &data )  • 
if  (n«0) 
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{ 

scprint(2,  20.  0.  "trivial  input  line"); 
goto  end: 
} 
ptr=  SkeywordfO] ; 
switch(*ptr) 
{ 
case  ' f ' : 

flag();    /*  control  flag  manipulator  */ 
break: 
case  'g' : 

gmanl);    /*  global  variable  manipulator  */ 
break: 
case  '  i  '  : 

init():   /*  data  acquisition  initializer  */ 
break; 
case  'm' : 

mon():     /*  temporary,  used  to  call  monitor  */ 
break: 
case  ' c ' : 

cleanup));     /*  write  current  status  of  variables  to  file  */ 
break; 
case  ' d ' : 

if  (datflg) 
< 

scprint(2,  20,  0,  "Data  colection  in  progress."); 
break; 
> 
if  (*name) 
( 

strcpy(dfname.  name); 
! 
dfptr=  f open (df name,  "a"): 

datflg=  1;     /*  opens  path  in  doalarmli  for  data  acq.  */' 
scprint(2.  19,  0,  "Data  Sample  Initiated."): 
scprint(27.  19,  0.  "file=Sss      ",  dfname): 
moveto(99,  99); 
break: 
case  ' p' : 

paintf );   /*  re-paint  the  screen  */ 
break: 
case  ' h' : 

heat();        /*  temporary  used  to  initialize  heater  */ 
break: 
case  ' e'  : 

eng();         /*  set  api ,  ftmp,  and  point  */ 
break; 
default : 

scprint(2,  20,  0.  "First  character  invalid  in  keyword.")- 
} 
end: 


*keyword= 
*name=  ' 
data  «  0 ; 


clear( ) ; 
moveto(99. 


99)  ; 


/******  GMANI) 

/* 

gman  is  the  funtion  which  manipuiates  global  variables. 
Input  to  the  function  is  provided  by  keyboard!). 
Variables  are  either  read  or  written  based  on  the 
strings:  keyword[],  name[|.  data.  */ 

gman() 
{ 


******  i 


char  *ptr;  /* 
char  *nptr;  /* 
struct  gv  *gvptr; 
int  match=  1; 
ptr=  &keyword[2] ; 
nptr=  name ; 
gvptr^  gvs; 


ptr  to  keyword  string  */ 
ptr  to  name  string  */ 

/*  ptr  to  global  variable  names  and  addre  */ 


if  (*name  «  0) 
( 

scprint(2,  20,  0, 
goto  varerr; 
> 


"Must  have  a  variable  name."); 


while  (match) 
{ 

I*   check  if  we  ran  through  the  list  without  a  match  */ 
if  (*gvptr->gvname  ==  0) 
( 

scprint(2,  20,  0.  "Variable  undefined."); 
goto  varerr; 
) 
/*  a  match  will  yeild  a  '0'  */ 
match=  strcmp{name,  gvptr->gvname) ; 
gvptr++ ; 
> 
gvptr — ; 

if  (*ptr  =  =  'r1 ) 

scprint(2.  20,  0,  "%sM".  gvptr->gvname,  *(gvptr->gvad) ) ; 
else  if  (*ptr  «  'w' ) 

( 


else 


varerr : 

> 


*(gvptr->gvad)=  data; 

scprint(2,  20,  0,  "Sis  %f",    gvptr->gvname,  *(gvptr->gvad) ) ; 

} 

scprint(2,  20,  0,  "Global  variable  must  be  read  or  write."); 


/******  FLAGO 

/* 

flag  is  the  function  which  manipulates  control  flags. 

Input  to  the  function  is  provided  by  keyboard!). 

Flags  are  either  read  or  written  based  on  the 

strings:  keyword[J,  namef],  data.  */ 


******/ 


flag() 
{ 


char  *ptr;     /*  ptr  to  keyword  string  */ 

char  *nptr;    /*  ptr  to  name  string  */ 

struct  fig  *flgptr;  /*  ptr  to  control  flag  names  and  addre  */ 

int  match=  1; 

ptr=  &keyword[2] ; 

nptr=  name; 

flgptr«  flags; 

if  (*name  ==  0) 
{ 

scprint(2,  20,  0,  "Must  have  a  flag  name."); 
goto  varerr; 
) 
while  (match) 
( 

/*  check  if  we  ran  through  the  list  without  a  match  */ 
if  (*flgptr->flgname  ==  0) 
( 

scprint(2,  20,  0,  "Flag  undefined. ") ; 
goto  varerr; 
) 
/*  a  match  will  yeild  a  '0'  */ 
match=  strcmpfname,  f lgptr->f lgname) ; 

flgptl++; 

) 
flgptr— ; 


if  (*ptr  ==  'r' 
scprint(2. 

else  if  (*ptr  ■ 
( 


20.  0,  "%s%d",  flgptr->f lgname.  *(flgptr->flgad) ) ; 
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else 


*(flgptr->flgad)-  data: 

scprint(2,  20.  0,  "*a  Ssd"  ,  f lgptr->f lgname.  *(f lgptr->f lgad) ) • 

) 

snprint(2,  20,  0,  "Flag  variable  must  be  read  or  write."): 


/******  1NIT() 

/*  init  routine. 

Purpose:   This  routine  is  called  by  the  keyboard  service 
routine.   It  interprets  the  second  letter  of  the  keyword 
when  the  first  letter  was  a  'i'.   The  routines  called 
by  init  are  used  to  initialize  the  adac  cards 
to  the  real  world  sensors.   */ 

init() 
< 

char  *ptr;     /*ptr  to  keyword  */ 

ptr=  Skeywordf 1] ; 

switch(*ptr) 

{ 


case  'h' : 

inhl(); 

break: 
case  ' t '  : 

intmp( ) : 

break: 
case  'p' : 

intpul ( ) ; 

break: 
default: 

scprint(2.  20.  0,  "Second  letter  invalid  in  keyword."); 


/*  high  level  initialization  routine  */ 
/*  temp  initialization  routine  */ 
/*  pulse  card  initialization  */ 


'*■*"  INHL() 

inhl  routine. 

Purpose:   High  level  data  acquistlon  initialization 

routine.   By  calling,  the  user  can  assign  channel 

numbers,  internal  gains,  offsets,  and  calibration  contsants 

to  the  fixed  high  level  parameters. 

The  routine  uses  the  high  level  data  acquistlon  structure 

and  an  option  is  available  to  print  the  status  of 

the  structure  given  the  parameter  name.  */ 
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inhll) 
{ 


char  *ptr:     /*  ptr  to  keyword  */ 

struct  hlda  *hlptr;  /*  ptr  to  high  level  structure  */ 

Int  match=  1 ; 

hlptr=  hldax; 

ptr=  &keywordf2] ; 

if  (*name  ==  0) 
{ 

scprint(2,  20,  0,  "Must  have  a  parameter  name."); 
goto  parerr; 
) 

/*  find  the  desired  parameter  in  name  */ 
while  (match) 

{ 

if  (*hlptr->parm  ==  0) 
( 

scprint(2,  20,  0,  "High  level  parmeter  undefined."); 
goto  parerr; 
> 

match=  strcmp(name,  hlptr->parm) ; 

hlptr++; 

I 
hlptr  — ; 

/*  find  out  what  to  do  with  this  parameter  */ 
switch(*ptr) 
( 
case  'n' ; 

(hlptr->chan)=  data;     /*  assign  channel  */ 

break; 
case  'g'  ; 

(hlptr->gain)«  data;     /*  assign  gain  */ 

break: 
case  'o' : 

/*  take  9  readings  and  assign  mean  to  offset  */ 

(hlptr->off )=  admean(hlptr->chan.  hlptr->gain.  9); 

break; 
case  ' c ' : 

/*  take  the  mean  of  9  readings  and  the  data  to  form  calcon  */ 

(hlptr->calcon)=  data/( (admean(hlptr->chan,  hlptr->gain,  9)) 
-  hlptr  >off) ; 

break; 
case  'p' : 

/*  print  the  status  of  the  parameter  */ 

scprint(2,  20.  0.  "*s  "sd  *d  *f  *f",  hlptr  >parm,  hlptr->chan. 
hlptr->gain.  hlptr->off,  hlptr->calcon) ; 

break; 
default: 

scprint(2.  20,  0,  "Third  letter  in  keyword  not  defined."); 
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parerr: 


/*««***  INTMPO 

/*  intmp  routine. 

Purpose ;   Temperature  data  acquistion  initialization 

routine.   By  calling,  the  user  can  assign  channel 

numbers,  and  thermocouple  types  to  the  fixed 

temperature  parameters.   The  routine  uses  the 

temperature  data  acquisition  structure 

and  an  option  is  available  to  print  the  status 

of  the  structure  given  the  parameter  name.  */ 


intmp( ) 


char  *ptr;     /*  ptr  to  keyword  */ 

struct  tmpda  *tmptr;     /*  ptr  to  temp  structure  */ 

int  match=  1 ; 

tmptr=  tmpdax; 

ptr=  &keyword[2] ; 

if  (*name  «-  0) 
< 

scprint(2,  20,  0,  "Must  have  a  parameter  name."): 
goto  parerr: 
} 

/*  find  the  desired  parameter  in  name  */ 
while  (match) 

{ 

if  (*tmptr->parm  ■=«  0) 
{ 

scprint(2,  20,  0,  "Temperature  parameter  undefined."); 
goto  parerr: 
) 

match=  strcmp{name,  tmptr- >parm) : 

tmptrn-: 

) 
tmptr — ; 

/*  find  out  what  to  do  with  this  parameter  */ 
switch(*ptr) 
{ 
case  ' n' : 

( tmptr- >chan)=  data;     /*  assign  channel  */ 

break; 
case  ' t ' : 

(tmptr->type)=  data;     /*  assign  type  */ 

break: 
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case  ' p' : 

/*  print  status  of  the  parameter  */ 

scprint(2,  20.  0.  "55s  *d  %d" .    tmptr->parm,  tmptr->chan. 
tmptr->type) ; 

break; 
default: 

scprint(2,  20,  0,  "Third  letter  in  keyword  not  defined."); 

parerr : 
> 


/******  INTPUU) 

/• 

intpul  routine. 

Purpose:   Pulse  card  data  acquisition  initialization 
routine.  By  calling  the  user  can  assign  channel  numbers, 
time  base,  and  the  intercept  and  first  order  slope 
term  to  transform  pulse  data  to  real  world  units. 
The  routine  uses  the  pulse  data  acquistion  structure 
and  an  option  is  available  to  print  the  status 
of  the  structure  given  the  parameter  name.  */ 


intpul ( ) 
{ 


char  *ptr;     /*  ptr  to  keyword  */ 

struct  pulse  *pulptr:    /*  ptr  to  pulse  data  structure  */ 

int  match=  1; 

pulptr=  pulsex; 

ptr=  &keywordf2] ; 

if  (*name  »»  0) 
{ 

scprint(2.  20.  0.  "Must  have  a  parameter  name."); 
goto  parerr; 
} 
/*  find  the  desired  parameter  in  name  */ 
while  (match) 
f 

if  (*pulptr->parm  ==  0) 
( 

scprint(2.  20,  0,  "Pulse  card  parameter  undefined."); 
goto  parerr; 
} 
match=  strcmplname,  pulptr->parm) ; 
pulptr++; 
I 
pulptr — ; 
/*  find  out  what  to  do  with  the  parameter  */ 


switch(*ptr) 

{ 

case  ' n' : 

(pulptr->chan)-  data;    /*  assign  channel  */ 

break: 
case  ' t '  : 

(pulptr->tbase)=  data;   /*  assign  time  base  */ 

break; 
case  ' o'  : 

(pulptr->constl )  =  data;   /*  assign  intercept  */ 

break; 
case  'c' : 

(pulptr->const2)=  data;   /*  assign  F.O.  siope  */ 

break; 
case  'p'  ; 

/*  print  status  of  the  parameter  */ 

scprint(2,  20,  0,  "*s  *d  *f  *f  Sf",  pulptr->parm. 
pulptr->chan,  pulptr->tbase,  pulptr->constl , 
pulptr->const2) ; 

break; 
default: 

scprint(2,  20,  0,  "Third  letter  in  keyword  undefined."); 
} 
parerr : 

} 


/******  ENGO 

/» 

Eng  routine. 

This  routine  allows  the  user  to  set  the  fuel  temp  and  API 
number.   In  addition  a  label  can  be  attached  to  the  data 
collection  sequence.  */ 


eng(  ) 
< 


char  *nptr ; 

nptr  =  name; 
switch(*notr) 
{ 
case  'p'  : 

nptr-t-+; 

strcpyf point .nptr) : 

scprint(2,  20.  0.  "point  «  %s" ,    point); 
break: 
case  ' a ' : 

if  (data)  { 

api  =  data: 
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scprint(2,  20,  0.  "api  =  %(" ,    api); 

} 
else  { 

scprint(2,  20,  0.  "Data  must  have  value"); 

} 
break; 
case  ' f ' : 

if  (data)  { 

ftmp  =  data; 

scprint(2,  20,  0,  "ftmp  -  *f",  ftmp); 

> 
else  { 

scprlnt(2,  20,  0,  "Data  must  have  value"); 

> 
break; 
default: 

scprint(2.  20,  0,  "eng  variable  undefined"); 


/******  PAINT()  *» 

/* 

Paint  Routine: 

This  routine  paints  or  re-paints  the  static  screen  layout.  */ 


paint( ) 

\ 

scprint( 

2, 

2, 

1, 

"ENGINE  " 

scprint ( 

2. 

4, 

0, 

"ERPM=  ") 

scprintl 

2, 

5, 

0, 

"ETRK=  ") 

scprintl 

2, 

6, 

0, 

"ENFF=  ") 

scprintl 

2, 

7, 

0, 

"EEGT=  " ) 

scprint( 

2, 

8, 

0, 

"EWTP=  ") 

scprintl 

2, 

9, 

0, 

"EN0T=  ") 

scprintl 

2, 

10, 

0. 

"EN0P=  ") 

scprintl 

2, 

11, 

0, 

"THST>  ") 

scprintl 

2, 

12, 

0, 

"RACK=  ") 

scprintl 

2, 

13, 

0, 

"PNT  =  ") 

scprintl 

2, 

14, 

0, 

"MT  =  ") ; 

scprintl 

2, 

15, 

o, 

"FTMP=  ") 

scprintl 18, 

2, 

1, 

"CVT  ") ; 

scprintl 17 , 

4, 

0, 

"TRPM=  " ) 

scprintl 17, 

5, 

0, 

"TTRK=  ") 

scprint ( 17, 

6, 

0, 

"TWI  ■=  ") 

scprintl 17, 

7, 

0, 

"TOO  -  ") 

scprintl 17 , 

8, 

0, 

"TCVT=  " ) 

scprintl 17, 

9, 

0, 

"TTNK=  ") 

scprint(17, 

10, 

0, 

"TOI  =  " ) 

scprint(17, 

11, 

0, 

"TWO  =  " ) 

7., 


scprint(17. 

12, 

0, 

"OFF  =  ")  ; 

scprint(17. 

13, 

0, 

"OFR  =  " ) : 

scprint(17. 

14. 

0, 

"RGST-  ") ; 

scprint(17, 

15, 

0, 

"HSET=  "); 

scprint(17, 

16. 

0. 

"FBST»  "); 

scprint(34 , 

2, 

1, 

"TRANS  "  )  ; 

scprint (33 , 

4, 

0, 

"PS0T>  "  )  : 

scprlnt(33. 

5. 

0, 

"FDOT=  " ) ; 

scprint(33. 

6, 

0, 

"GEAR=  " ) ; 

scprint(49, 

2, 

1, 

"DYNO  " ) ; 

scprint(49, 

4, 

0, 

"DRPM=  "): 

scprint (49, 

5, 

0, 

"DTRK=  ")  ; 

scprint(49. 

6, 

0. 

"DWIT=  ") ; 

scprint(49. 

7, 

0, 

"DWOT=  " )  ; 

scprint (33, 

7, 

0, 

"AIRT=  ")  ; 

scprint(66. 

4. 

0. 

"EPWR=  "): 

scprint (66 , 

5, 

0, 

"TPWR=  ")  ; 

scprint (66, 

6, 

0, 

"DPWR=  "); 

scprint(66, 

7, 

0, 

"TEFF=  " ) ; 

scprint(33, 

9, 

1, 

" 

scprint(46, 

10, 

1. 

"PROGRAM  CONTROL  ") 

scprint(33. 

12. 

0, 

"TIMINT=  ") 

scprint(33. 

13, 

0, 

"MONTIM=  ") 

scprint(33. 

14, 

0, 

"DYCTIM=  "! 

scprint(33. 

15, 

0, 

"HRCTIM=  ") 

scprint (33, 

16. 

0, 

"DATTIM=  " ) 

scprint (33 , 

17, 

0, 

"DATMAX"  ") 

scprint(46, 

12. 

0, 

"MONFLG=  ") 

scprint(46. 

13. 

0, 

"DYCFLG=  "I 

scprint (46, 

14, 

0. 

"HRCFLG=  ") 

scprint(46, 

15, 

0, 

"DATFLG=  ") 

scprint (46, 

16, 

0, 

"ONLINE-  ") 

scprint (60 , 

12, 

1, 

"HTCOND  ") ; 

scprint(63, 

13, 

0, 

"TTL=  "  )  : 

scprint(63, 

14, 

0, 

"D/A=  "); 

scprint (60, 

15, 

1, 

"DYCOND  " ) : 

raoveto(99. 

99) : 

"); 


/******  CLEANUPO 

/* 

Cleanup  Routine: 

This  routine  allows  the  user  to  write  the  entire  contents 
of  the  common  data  structure  to  an  external  file  for  later 
examination.   */ 


cleanup! ) 
{ 

FILE  *fp.  *fopen( ): 


struct  gv  *gvptr; 

struct  hlda  *hlptr; 

struct  tmpda  *tmptr; 

struct  pulse  *pulptr; 

fp=  fopen( "Clean_up" ,  "w" ) ; 
gvptr=  gvs; 
hlptr=  hldax; 
tmptr=  tmpdax; 
puLptr=  pulsex; 

fprintf(fp,  "Global  variables . \n" ) ; 
while ( *gvptr->gvname ) 

( 

fprintf(fp,  "*s  %f\n",  gvptr->gvname, 
*(gvptr->gvad) ) ; 

gvptr++; 

> 
fprintfffp,  "High  level  parameters . \n" ) ; 
while(*hlptr->parm) 

{ 

fprintf(fp,  "%s  %d  %d  %[   *f\n".  hlptr->parm. 
hlptr->chan,  hlptr->gain. 
hlptr->off,  hlptr->calcon) ; 

hlptr++; 

> 
fprintf(fp,  "Temperature  parameters . \n"  ) ; 
while (*tmptr->parm) 

< 

fprintf(fp.  "%s  %d   *d\n" ,  tmptr->parm.  tmptr->cha», 
tmptr->type) ; 

tmptr++ ; 

} 
fprintfffp,  "Pulse  card  parameters . \n"  ) ; 
while(*pulptr->parm! 

( 

fprintf(fp,  "%s  %d  Xt  %i  %{ \n" .  pulptr->parm, 
pulptr->chan,  puiptr->tbase , 
pulptr->constl ,  pulptr->const2 ) ; 

pulptr**: 

) 
fclose( fp) ; 


/******  SCPRINTO  **» 

/* 

Scprint  Routine: 

This  routine  is  a  modified  version  of  the  one  which  appears  in 

kmon.   */ 
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/"VARARGS4*/ 

scprintfx,  y,  dtt ,  f mt ,  args ) 

int  x,  y.  att; 

char  *fmt; 

{ 

if  (orphan)    /*  Kmon  not  here  */ 
( 

if  (att)   /*  monitor  is  in  trouble  */ 
{ 

printf ("  7  7") ; 
} 
return: 
) 
movealx,  y,  att); 
_doprnt(fmt,  Sargs ,  stdout) ; 
attrib(O) ; 
) 


************ 


********************************************************* 


C-SOURCE  LISTING  FOR  ADAC  1000  COMPUTER 
CVT  --  ENGINE  PROJECT  —  SUPERVISOR 


DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 


AUTHOR : 

KENT  D.  FUNK 

DATE: 

4/5/85 

FILE: 

doalarm . c 

************************************************************************ 

♦include  <stdio.h> 
♦include  <math.h> 
♦include  <adac.h> 
♦include  "control. h" 

/******  DOALARM! )  ******/ 

/* 

Doalarm  Routine. 

Doalarm  provides  the  control  allocation  algorithms  for  all 
real  time  loops.  This  routine  will  be  called  any  time  that 
the  UNIX  system  alarm  goes  off.  */ 


doalarm! I 
{ 


static  dyfirst<= 
static  htfirst= 
static  dtfirst= 
static  mnfirst= 
static  dyncnt= 
static  heatcnt= 
static  datont= 
static  moncnt= 


alarmflag — ; 

if  (dyfirst  &&   dycflg)  { 

dyfirst^  0; 

dyn(); 

) 
if  (htfirst  &&  hrcflg)  ( 

htfirst^  0: 

hcontroll 1 ) ; 


if  (dtfirst  &4  datflg)  { 

dtfirst=  0: 

dat(): 

} 
if  (mnfirst  &&  monflg)  { 


mnfirst=  0; 

mon( ) ; 

} 
if  ( ((dyncnt*timint)  ==  dyctim)  &&  dycflg)  { 

dyncnt=  0; 

dyn(); 

> 
If  (( (heatcnt*timint)  »«  hrctim)  &S  hrcflg)  ( 

heatcnt=  0; 

hcontrol(O) ; 

) 
if  ( ((datcnt*timint)  «  dattim)  &&   datflg)  { 

datcnt=  0: 

dat(); 

} 
if  (((moncnt*timint)  ==  montim)  &&  monflg)  { 

moncnt=  0; 

mon ( ) ; 

} 
if  (dycflg  ==  0)  { 

dyfirst=  1; 

dyncnt=  0; 

> 
if  (hrcflg  ==  0)  { 

htfirst=  1; 

heatcnt=  0; 

) 
if  (datflg  "=  0)  ( 

dtfirst=  1; 

datcnt=  0; 

) 
if  (monflg  ==  0)  ( 

mnfirst=  1; 

moncnt=  0; 

} 

dyncnt++  ; 
heatcnt*-  + ; 
datcnt++ ; 
moncnt++; 


/******  DYN()  ** 

/* 

Hyn  Routine. 

The  dyn  routine  provides  the  real  time  control  for  the 
dynamometer.   At  present  this  routine  has  not  been  completely 
developed.  */ 


dyn() 
< 

static  int  cnt  = 

0; 

/*  UNDEVELOPED  •/ 

if  (cnt  —  0)  { 
cnt  =  1; 
scprint(2 , 
goto  end; 
) 

17, 

0 

if 

(cnt  «  1)  { 
cnt  =  0; 
scprint(2, 

17, 

0 

end: 

I 

) 

"dyno  loop  *" ) ; 


"dyno  loop*  *" ) ; 


/******  HC0NTR0LO 

/* 

Hcontrol  Routine. 

The  hcontrol  routine  provides  the  real  time  control 

for  the  cvt  oil  heater.  This  routine  is  fully  developed.  */ 

hcontrol (reset ) 
int  reset; 
{ 

int  out; 

static  double  told; 

double  too,  tcvt.  ttnk,  toi,  ttap.  control; 

double  tmpmeanl ) ; 

struct  tmpda  *tmptr; 

tmptr=  Srtmpdax[3]  ; 

tcvt=  tmpmean( tmptr->chan,  tmptr->type,  3); 

tmptr«  &tmpdaxf8]; 

too=  tmpraeanl tmptr->chan,  tmptr->type,  3) 

tmptr=  Stmpdaxf 10) ; 

ttnk»  tmpmeanl tmptr->chan,  tmptr->type,3) 

tmptr=  &tmpdax[U  ] ; 

toi=  tmpmeanl tmptr->chan,  tmptr->type,  3) 

tmptr=  &tmpdax[12]; 

ttap=  tmpmean(tmptr->chan,  tmptr->type,  3) 

if  (reset)  ( 

told=  too: 
> 


control"  619.976*hset  -210.098*too  +467.982*told 

-749.86*(toi-ttnk)  -  719.866*tcvt  -125.0*ttap; 
told=  too; 

scprint(67,  12,  0.  "Si8.2f,  control); 
moveto(99,99) ; 

out=  cell ( control ) ; 
if  (out  <-  0)  ( 

out=  0: 

} 
If  (out  >=  4095)  { 

out=  4095; 

) 
if  (out  <  2048)  ( 

ttlval=  0; 

daval=  out; 

> 
if  (out  >=  2048)  ( 

ttlval=  1; 

daval=  out  -2048; 

> 

heat( ) ; 


/****«*  HEATO 

/* 

Heat  Routine. 

Heat  sets  the  outputs  of  the  heaters.  */ 

heat( ) 
{ 

dtoa(0,  daval); 

ttlwb(2,  ttlval); 
) 


»««)niMu>«M»)M»<*«u»<u«»t»iM«ua»nitM«mttn«tn« 


*  C-SOURCE  LISTING  FOR  ADAC  1000  COMPUTER 

*  CVT  —  ENGINE  PROJECT  --  SUPERVISOR 

* 

*  DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 

*  AUTHOR:  KENT  D.  FUNK 

*  DATE:  4/5/85 

*  FILE:  mon.c 

* 

♦include  <stdio.h> 
♦Include  <adac.h> 
♦include  "control. h" 

/«*****  MON()  ******/ 

/* 

Mon  Rountine: 

Mon()  is  one  of  the  real  time  loops.   It  collects  all  necessary 

data  and  analyzes  it.   Then  it  prints  all  data  along  with 

warnings  to  the  static  screen.  V 

mon( ) 
( 

int  tT2]; 

char  *p; 

double  tempf ( ) ; 

double  tmpmeanf ) ; 

struct  hlda  *hlptr; 

struct  tmpda  *tmptr; 

struct  pulse  *pulptr; 

struct  limits  *hllptr: 

struct  limits  *tmplptr; 

struct  limits  *pullptr; 

int  i,  dat,  att,  err; 

double  value,  oiltemp,  flow: 

double  epwr,  tpwr.  dpwr,  teff,  mt: 

scprintd,  21,  0.  "  "); 

/*  make  request  for  data  */ 
err-  do68k(2,  1 ) ; 

hlptr=  hldax; 
tmptr=  tmpdax; 
pulptr=  pulsex; 
hllptr=  hl_lim; 
tmplptr=  tmp_lim; 
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puilptr=  pul_lim: 


/*  the  following  checks  erpm,  etrk,  trpm,  ttrk,  drpm,  dtrk  */ 
att=  NORM; 
time(t)  ; 
p=  ctime(t) ; 

scprint(50,  1,  0,  "*s",  p); 
for  (i=0;  i<6;  i  +  +  ) 
{ 

dat=  atodi (hlptr->chan,  hlptr->galn) ; 
value=  (dat  -  hlptr->of f )*(hlptr->calcon) ; 
If  (value  >'   *(hllptr->warn) ) 
< 
If  (value  >=  *(hllptr->max) ) 

att  =  REVERSE; 
else 

att  =  UNDERLINE; 
} 
scprint(hlptr->a,  hlptr->b.  att,  "*8.1f",  value); 
att=  NORM: 
hlptr++; 
hllptr++; 
> 

/*  check  engine  oil  pressure  */ 

dat»  atodi(hlptr->chan,  hlptr->gain) ; 
value=  (dat  -  hlptr->of f )*(hlptr->calcon) : 
if  (value  <=  *(hllptr- >warn) ) 
( 
if  (value  <«  * (hllptr->max) ) 

att  =  REVERSE; 
else 

att=  UNDERLINE: 
} 
scprint(hlptr->a,  hlptr->b,  att,  "JtS.lf",  value); 
att=NORM; 
hlptr++ ; 


/*  check  fuel  bucket  (enff)  */ 

dat=  atodi  (h]ptr->chan,  hlptr->gain) ; 
value=  (dat  -  hlptr->of f )*(hlptr->calcon) ; 
if  (value  <=  enffmn)  { 
att=  REVERSE; 
> 

scprint(hlptr->a,  hlptr->b,  att,  "*8.1f".  value); 
att=  NORM; 


/*  check  ewtp,  eegt,  enot,  tcvt .  twi.  psot,  fdot,  dwot  */ 
for  (i=0;  i<8;  1  +  +) 
f 

value=  tempf ( tmptr->chan,  tmptr->type) ; 
if  (value  >=  *( tmplptr->warn) ) 
< 
if  (value  >=  *( tmp]ptr->max) ) 

att  =  REVERSE; 
else 

att  =  UNDERLINE; 
> 
scprint(tmptr->c,  tmptr->d,  att.  "*8.1f",  value) 
att-  NORM; 
tmptr++ ; 
tmplptr*--*-; 
} 

/*  check  cvt  oil  in  (too)  */ 

value-  tempf (tmptr~>chan.  tmptr->type) ; 

oiltemp=  67.8  -,63*value; 

if  ( (value-hset)  >=  *(tmplptr->max) ) 

att=  REVERSE; 
if  ( (hset-value)  >=  *(tmplptr->warn) ) 

att»  UNDERLINE; 
scprint(tmptr->c.  tmptr->d,  att,  "SB. If",  value); 
att  =  NORM; 

/*  find  MT  for  cvt  temp  map  */ 
tmptr=  &tmpdax[8] ; 

value-  tmpmeanltmptr- >chan,  tmptr->type,  5); 
tmptr-  &tmpdax[3] ; 

mt-  tmpmean(tmptr->chan,  tmptr->type.  5); 
mt=  (mt+value)/2.0; 
scprint(8.  14,  att,  "5,8. If",  mt )  ; 


/*  check  ambient  air  temp  */ 
tmptr^  &tmpdaxl9]; 
tmplptr-*-+ ; 

value=  tmpmean(tmptr->chan.  tmptr->type.  5); 
If  (value  >=  *(tmplptr->max) ) 

att»  REVERSE; 
if  (value<=  *( tmplptr->warn) ) 

att-  UNDERLINE; 
scprintl tmptr->c.  tmptr->d,  att,  "*8.1f".  value): 
att=  NORM: 


/*  check  cvt  oil  flows  */ 
for(i-0;  i<2;  1++) 

{ 
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value=  (pul(pulptr->chan) )/(pulptr->i base) : 

flow  value/((pulptr->constl)*(pow(value/oiltemp,  0.5)) 

^   (pulptr->const2) ) ; 
if  (flow  >-  *(pul]ptr->max) ) 

att  =  REVERSE; 
if  (flow<=  *(pullptr->warn) ) 

att  =  UNDERLINE; 
scprint(pulptr->e.  pulptr->f,  att,  "S>8.1f",  flow); 
att=  NORM: 
pulptr++; 
pullptr++; 
} 

/*  update  dwit,  toi,  ttnk  */ 
traptr-  &tmpdax[12] ; 

value«  tempf ( tmptr->chan,  tmptr->type) ; 
scprint(tmptr->c,  tmptr->d.  0,  "*8.1f",  value); 

tmptr=  Stmpdaxf 11 ] ; 

value=  tempf (tmptr->chan,  tmptr->type) ; 

scprint( tmptr->c.  tmptr->d,  0.  "*8.1f",  value); 

tmptr=  &tmpdax[10]; 

value=  tempf (tmptr->chan,  tmptr->type) ; 

scprint(tmptr->c,  tmptr->d.  0,  "*8.1f",  value); 

tmptr=  &tn\pdax[13]  ; 

value=  tempf (tmptr->chan,  tmptr->type) : 

scprint( tmptr->c,  tmptr->d.  0.  "ss8.1f",  value); 


compute  power  and  efficiency  stats  */ 
hlptr=  &hldax[01: 

dat=  admean(hlptr->chan,  hlptr->gain.  5); 
epwr=  (dat  -hlptr->off )*{hlptr->calcon) ; 
hlptr++ ; 

dat=  admean(hlptr->chan.  hlptr->gain,  5); 
value=  (dat  -hlptr->of f )*(hlptr->calcon) ; 
epwr=  epwr*value/5252. 1131 ; 

hlptrn-: 

dat-  admean(hlptr->chan,  hlptr->gain,  5); 

tpwr-  (dat  -hlptr->off )*(hlptr->calcon) ; 

hlptlMt; 

dat=  admean(hlptr->chan,    hlptr->gain,    5); 

value=    (dat    -hlptr->of f )*(hlptr->calcon) ; 

tpwr=   tpwr*va]ue/5252. 1131 ; 


hlptr*--*-; 

dat=   admean(hlptr->clian,    hlptr   >gain.    5); 

dpwr=    (dat    -hlptr->of f )*(hlptr->calcon) ; 


hlptr  +  -t-; 

dat=  admean(hlptr->chan,  hlptr->gain.  5); 
value=  (dat  -hlptr->off )*(h!ptr->calcon) ; 
dpwr=  dpwr*value/4000.00; 

scprint(72,4.0,  "%6.1f",  epwr): 
scprlnt(72,5,0,  "*6.1f",  tpwr); 
scprint(72,6,0,  "%6.1f",  dpwr); 

if  (epwr  >  1 )  { 

teff=  tpwr/epwr*100.0; 

att=  NORM; 

if  (teff  <  75  )  { 

att  -  REVERSE; 
> 
scprint(72,7,att,  "*6.1f",  teff); 
) 


/*  update  68k  table  »/ 
err  =  do68k(2,  2) ; 
if  (err  »-  3) 

scprint(2,  21,  0,  "68000  not  responding"); 
if  (err  «•  4) 

scprint(2,  21,  0,  "wrong  number  of  argueraents  in  68000"); 
if  (err  ==  5) 

scprint(2,  21,  0,  "S  flag  missing  in  68000"); 


scprint(  8 

12, 

0, 

"%8d" 

rack) : 

scprintf  8 

11, 

0, 

"3;8d" 

thstp)  ; 

scprint(23 

14, 

0, 

"%8d" 

rgstp) : 

scprint(23 

16, 

0, 

"%8d" 

fbstp) ; 

scprint(39 

6, 

0, 

"Ss8d" 

gear) ; 

update  the  pi 

ogram  control 

flags  */ 

scprint(40 

12, 

0, 

"*4d" 

timint ) 

scprint (40 

13, 

0, 

"%4d" 

montim) 

scprint (40 

14, 

0, 

"3>4d" 

dyctim) 

scprint (40 

15, 

0, 

"*4d" 

hrctitn) 

soprint(40 

16, 

0, 

"*4d" 

dattim) 

scprint(40 

17, 

0, 

"»4d" 

datmax) 

scprint (53 

12. 

0. 

"*2d" 

nonflg) 

scprint(53 

13, 

0, 

"%2d" 

dycflg) 

scprint(53 

14, 

0, 

"S62d" 

href lg) 

scprint(53. 

15, 

0, 

"*2d". 

datflg) 

scprint (53 

16, 

0, 

"*2d" 

online) 

scprint (67, 

13, 

0, 

"*6d" , 

ttlval) 

scprint(67. 

14. 

0, 

"%6d". 

daval ) ; 

/*  update  heater  control  setpoint  */ 

scprint(23,  15,  0,  "%8.1f",  hset ) ; 

scprlntf  8,  13,  0,  "%s   ",  point); 

scprlntf  8,  14,  0,  "*8.1f",  api); 

scprint(  8,  15,  0,  "*8.1f",  ftmp): 


) 


moveto(99.99) ; 
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C-SOURCE  LISTING  FOR  ADAC  1000  COMPUTER 
CVT  —  ENGINE  PROJECT  --  SUPERVISOR 

DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 


AUTHOR : 

KENT  D.  FUNK 

DATE: 

4/5/85 

FILE: 

cvtlinear . c 

********************************  x**********************************^**** 

♦include  <stdio.h> 
♦include  <adac.h> 
♦include  "control. h" 

/*#****  DAT()  ******/ 

/* 

Dat  Routine. 

The  dat  routine  provides  the  data  recording  proceedures. 

There  are  numerous  versions  of  this  routine  used  for 

different  tests.   This  particular  version  was  used  to  collect 

the  CVT  data.  */ 

dat() 
{ 

int  t [ 2  J : 

char  *p: 

struct  hlda  *hlptr; 

struct  trapda  *tmptr: 

double  tmpmean( ) : 

int  dat.  err.  errcnt.  num.  wait: 

static  cnt^O: 

double  enot.  atmp,  enop,  enwt,  eegt,  erpm,  etrk,  enff; 

double  trpm,  ttrk,  tcvt .  too; 

scprintd  ,22,0. "  » )  . 

num  -  cnt  +  1; 

if  (cnt  ==  0)  { 
time(t) : 
p=  ctime(t ) : 

fprintf  (dfptr.  '"Ss" .  p): 
fprintf (dfptr.  "%s   *10.3f  %10.3f\n".  point,  api ,  ftmp); 

tmptr-  &tmpdax[0] : 

enwt=  tmpmean(tmptr->chan,  tmptr->type,  9); 

tmptr++: 


eegt  =   tmpmean( traptr->chan,    tmptr->type,    9) 

tmptr++; 

enot  =  tmpmean( tmptr->chan,  tmptr->type,  9) 

tmptr++; 

tcvt=  tmpmean(tmptr->chan,  tmptr->type,  9) 

tmptr=  &tmpdax[8| ; 

too=  tmpmean(tmptr->chan,  tmptr->type,  9); 

tmptr=  &tmpdax[9|; 

atmp=  tmpmean(tmptr->chan,  tmptr->type,  9); 

hlptr=  &hldax[6] ; 

dat=  admean(hlptr->chan,  hlptr->gain,  9); 

enop=  (dat  -  hlptr->off )  *  hlptr->calcou; 

fprintf (dfptr,  "*9.3f  %9.3f  %9.3f  *9.3f  %9.3f  Ss9.3f  *9.3f\n", 
enot,  enop,  enwt ,  eegt,  tcvt,  too,  atmp); 

req=  1 ; 

scprint(50.  19,  0,  "UATCNT=  "); 

} 

scprint(58,  19,  0,  "*5d" ,  num); 
err=  do68k(3.  1) ; 

hlptr=  &hldax[0] ; 

dat=  admean(hlptr->chan,  hlptr->gain.  9); 

erpm=  (dat  -  h]ptr->oi'f)  *  hlptr->calcon; 

hlptr++; 

dat=  admean(hlptr->chan,  hlptr->galn,  9); 

etrk=  (dat  -  hlptr->off)  *  hlptr->calcon; 

hlptr++ ; 

dat=  admean(hlptr->chan,  hlptr->gain,  9): 

trpm=  (dat  -  hlptr->off)  *  hiptr->calcon; 

h]ptr-t-+ ; 

dat=  admean(hlptr->chan,  hlptr->gain,  9); 

ttrk  =  (dat  -  hlptr->off)  *  hlptr->caicon; 

hlptr=  &hldaxr7) ; 

dat-  admean(hlptr->chan,  hlptr~>gain.  9); 

enff*=  (dat  -  hlptr->off)  *  hlptr->calcon; 

erreut=  0; 

while  (errcnt  <  1000)  { 
erront-*-^; 
wait=--  0; 

while  (wait  <  waitmx)  { 
wait++ ; 
} 
) 
err  =  do68k(3,  2) ; 
if  (err  —  1)  { 

fprintf (dfptr,  "**Error  B8k  Not  Here\n"); 
> 
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if  (err  ==  3)  { 

fprintf  (dfptr,  "**Error  68k  Not  RespondingW  )  ; 

scprint(2,  22,  0,  "Error  68k  Not  Responding"); 

) 
if  (err  ==  4)  ( 

fprintf (dfptr,  "**Error  68k  Argument  Error\n"): 

scprint(2,  22,  0.  "Error  68k  Argument  Error"); 

> 
if  (err  -«  5)  { 

fprintf (dfptr,  "**Error  68k  Format  Error\n"); 

scprint(2,  22,  0,  "Error  68k  Format  Error"); 

} 

fprintf (dfptr,  "VJ.3f  *9.3f  *9.3f  %8d  %8d  %8d  *9.3f  K9.3f\n". 
erpm,  etrk,  enff,  thstp,  rack,  fbstp,  trpm,  ttrk); 

cnt++; 

if  (cnt  >=  datmax) 

< 

datflg=  0; 

cnt=  0; 

req=  0; 

fprintf (dfptr,  "\n"); 

fclose(dfptr) : 

scprintf  2,  19,  0,  "  "); 

scprint(50,  19,  0,  "         •  "); 

scprintf 1,22,0,"  » ) . 

moveto(99.99) : 


<);-: 


APPENDIX  C 
MC68000ECB  HARDWARE 
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Figure  7  MC68000  Educational  Computer  Board 
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Figure  8  Block  Diagram  -  Educational  Computer  Board 


Table  3  Bus  Expansion  Buffer:   Parts  List 


REFERENCE 
DESIGNATION 


Rl.  R2.  R4 

R3 

R5,  R6 

Ul 

112,  03,  U4 

Uo 

06 

07 


DESCRIPTION 


Resistor,  film.  270  ohm.  5%,    1/4  W 

Resistor,  film.  180  ohm.  5%.    1/4  W 

Resistor,  film,  3.3k  ohm.  5%.    1/4  W 

I.e.  SN74LS245N       Octal  Bus  Transceiver 

I.C.  SN74LS244N       Octal  Bus  Buffer 

I.C.  SN74LS07N        Hex  Buffer 

I.C.  SN74LS11N        Triple  Three  AND  Gates 

I.C.  SN74LS04N        Hex  Inverter 


SIGNAL  CONNECTION  POINTS 


MEX68KSCB'  BUS  EXPANSION  BUFFER 
PARTS  LOCATION 


Figure  9  Bus  Expansion  Buffer:   Board  Lavout 
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Figure  10  Bus  Expansion  Buffer:   Schematic 
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Table  4   I/O  Expansion:   Parts  List 


REFERENCE 
DESIGNATION  DESCRIPTION 


R19, 

R20, 

R67, 

R68, 

R69, 

R70, 

R71. 

R72, 

R73, 

R74 

R21, 

R22, 

R23, 

R24, 

R25, 

R26, 

R27, 

R28 

R45, 

R46. 

R47, 

R48, 

R49, 

R50 

Ul 

U2 

V3, 

u-i 

U5, 

U8. 

U6, 

U9 

U7, 

R1  •   R2  Resistor,  film,  68k  ohm,  5*.  1/4  W 

R3.  R5,   R7, 

R9,  Rll,  R13, 

R15,  R17.  R29, 

R32,  R33,  R35, 

R37,  R39,  R41, 

R43,  R51,  R53, 

R55,  R57,  RS9, 

R61,  R63,  R65       Resistor,  film,  220  ohm,  5*.  1/4  W 

R4.  R6,  R8, 

RIO,  R12,  R14, 

R16,  R18,  R30, 

R31,  R34,  R36, 

R38,  R40,  R42, 

R44,  R52,  R54, 

R56,  R58,  R60, 

R62,  R64,  R66       Resistor,  film,  390  ohm,  5%,  1/4  W 


Resistor,  film,  4.7k  ohm,  5*.  1/4  W 


Resistor,  film,  Ik  ohm,  5*.  1/4  W 

Resistor,  film,  2.2k  ohm,  5*.  1/4  W 
I.e.  SN74LS260N       Dual  5-input  NOR 
I.e.  SN74LS138N       3-to-8  Line  Decoder 
I.C.  MC68230L8         PI/T 

I.e.  SN74LS90N       Decade  Counter 


Table  4  --cont. 


REFERENCE 

OBSIGNATION 

UIO 

Ull, 

012 

U13, 

U14. 

U25, 

U32, 

U33 

U15. 

U16, 

U17. 

U18, 

U19, 

IJ20, 

U21. 

U22. 

U23, 

U24, 

U26, 

U27. 

U28, 

U29, 

U30. 

U31, 

U34. 

U35, 

U36, 

U37, 

U38, 

U39, 

U40, 

U41 

DESCRIPTION 


I.C.  SN74LS08N       Quad  2 -Input  ANU 
I.C.  SAA1042         Stepper  Motor  Driver 

I.C.  SN74LS05N       OC  Hex  Inverter 


I.C.  4N33  Opto-Isolator 

U42,  U43  Spaulding's  Incremental  Encoder  Counters 
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Figure  11   I/O  Expansion:   Schematic 
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Fierure    11      --cont. 
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Figure  12  Digital  Inputs:   Schematic 
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Table  5  High  Current  Outputs:   Parts  List 


REFERENCE 
DESIGNATION 


DESCRIPTION 


Dl,   D2,  D3, 

D4.   D5,  D6. 

D7,   D8,  D9, 

D10,  Dll,  D12, 
D13,  D14 

Rl.  R2 

R3,  R4 

Tl.   T2.  T3, 

T4 ,   T5 ,  T6 . 

T7 ,   T8 .  T9 , 

T10,  Til,  T12, 
T13,  T14 


SKS040        Silicon  Fast  Recovery  Rectifier 
Resistor,  power,  2.6  ohm,  105s,  20  W 
Resistor,  power,  1.1  ohm,  10*,  65  W 


SK3180 


NPN  Si  AF  Darlington  Transistor 


iflo 


Figure   13      High   Current  Outputs:      Schematic 
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APPENDIX  D 
MC68000ECB  SOFTWARE  LISTINGS 
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*  SUPPLEMENTAL  LISTING  FOR  MOTOROLA  M68000  ECB  SINGLE  BOARD  COMPUTER 

*  CVT  —  ENGINE  PROJECT  —  CONTROLLER 

* 

*  DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 

*  AUTHOR:         KENT  D.  FUNK 

*  DATE:  8/17/85 

*  FILE:         screenlayout 

* 


♦CONSOLE  SCREEN  LAYOUT* 

P-INIT 
E-INIT 

SET  ENABLES  ON 

CONTINUE?   <ret> 
START  ENGINE 

CONTINUE?  <ret> 

CVT  CONTROLLER 

CREATED  BY  K  FUNK 


CURRENT  STATUS: 
RACK=  XXXXXXXX 
THSTP=  XXXXXXXX 
RGSTP=  XXXXXXXX 
FBSTP-  XXXXXXXX 
GEAR=   XXXXXXXX 

ENTER  NEW  DATA: 
THSTP  ?  <user  response> 
RGSTP  ?  <user  response> 
GEAR  ?  <user  response.-* 


Ill 


mMtKMtmtK.s.Jl.MM.MJ.MJ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 


*  ASSEMBLY  LISTING  FOR  MOTOROLA  M68000  ECB  SINGLE  BOARD  COMPUTER 

*  CVT  --  ENGINE  PROJECT  --  CONTROLLER 

* 

*  DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 

* 

*  AUTHOR:        KENT  D.  FUNK 


*  DATE 

*  FILE 

*  TYPE 


8/17/85 

global . s 

Common  Data  Structures  —  global 


****************************  ******************************************** 
DATA  STRUCTURES: 

GLOBAL  PROGRAM  SCOPE... 

global  program  data  allocation  ($900  to  $DFF) 

000900 

console  buffer  (80  ASCII  characters) 

0009A0 (Console  buffer  End) 


0009B0  hbyte   RACK         (current  external  conditions) 

0009B1  lbyte 

0009B2  hbyte   THSTP 

0009B3  lbyte 

0009B4  hbyte  RGSTP 

0009B5  lbyte 

0009B6  hbyte   FBSTEP 

0009B7  lbyte 

0009B8  hbyte   GEAR 

0009B9  lbyte 


0009CO  hbyte  THSTP         (desired  external  conditions) 
0009C1   lbyte 


0009C2  hbyte  RGSTP 


0009C3   lbyte 

0009C4  hbyte  GEAR 
0009C5  lbyte 


GLOBAL  TRAP  #14  SCOPE... 

global  trap  #34  data  allocation  (S5000  to  S507F) 


005000= 

S00006000 

(p-init) 

(trap  ex 

005004= 

$01006100 

(e-init) 

005008= 

$02006200 

(move-th ) 

00500C= 

$03006300 

(move-cvt ) 

005010= 

$04006400 

(set-gear) 

005014= 

S05006500 

{ read-rack) 

005018= 

$06006600 

(test-stable) 

00501C= 

$07006700 

( reg-save) 

005020= 

$08006800 

(reg-restore) 

005024= 

$09006900 

(read-thstp) 

005028= 

$0A006A0O 

(setup) 

00502C= 

$0BO06950 

( read-fbstp) 

005030= 

$0C006D00 

(unassigned) 

005034= 

$0D006E00 

(unassigned) 

005038= 

$0E006F00 

(unassigned) 

005030= 

$OF006F80 

(unassigned) 

005040= 

$00000000 

(reserved  for 

link  addr> 

005044- 

(extension  tal 

)le  End) 

ess  to  ROM  table) 


************************************************************************ 


ASSEMBLY  LISTING  FOR  MOTOROLA  M60000  ECB  SINGLE  BOARD  COMPUTER 
CVT  --  ENGINE  PROJECT  —  CONTROLLER 

DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 

AUTHOR:         KENT  D.  FUNK 


DATE 
FILE 
TYPE 


8/17/85 

main.s 

Sequential  Program  Execution  --  main 


•  ««««»««»>««»<«««»«««»„«„»*»,«„„,„„„„„„„„„„„,„„„ 

SYNOPSIS: 

MAIN  provides  the  control  code  for  all  normal  sequential  program 
execution.   Throughout  the  main  program,  numerous  software 
interrupts  are  generated  (TRAP  #14)  in  order  to  initialize  and 
communicate  with  all  system  hardware.   Currently,  the  main  LOOP 
provides  an  interactive  environment  (not  real  time  controlled)  by 
which  the  user  can  manipulate  the  drive  train.   This 
configuration  is  useful  for  data  mapping  and  system  debugging. 

To  Start  the  Program: 

GO  1000 

DATA  STRUCTURES: 

GLOBAL  STRUCTURES  AFFECTED: 
PROGRAM— 

current  external  conditions 
desired  external  conditions 

TRAP  #14-- 

trap  extension  table 

LOCAL  MAIN  SCOPE. . . 

local  data  allocation  (SEOO  to  SFFF) 

0O0E00=  SODOA  (Header  String) 


0OOEO2= 

'CV 

0O0E04= 

'T 

OO0EO6= 

'CO 

00OEO8= 

N'T 

OO0EOA= 

'RO 

O0OE0C" 

'LL 

OOOEOE»  'ER' 

OOOE10=  SODOA 

000E12=  $2020 

000E14"  $2020 

000E16-  ' CR ' 

000E18=  'EA' 

000E1A=  'TE' 

000E1C=  'D  ' 

000E1E=  'BY' 

000E20=  '  K' 

000E22=  '  F' 

000E24=  'UN' 

000E26=  'K  ' 

O00E28=  $OD0A 

000E2A=  $OA0A 

000E2C=  'CU' 

000E2E=  'RR' 

000E30=  'EN' 

000E32=  'T  ' 

000E34=  'ST' 

000E36=  'AT' 

000E38=  'US' 

O00E3A=  ' :  ' 

000E3C=  $0D0A 

000E3E (Header  String  End) 

000E40-  'RA'  (Data  String) 

000E42=  'CK' 

000E44=  '  =  ' 

000E46=  $2020   (Rack-Start^  $E46) 

000E48=  $2020 

000E4A=  $2020 

000E4O  $2020 

000E4E=  $ODOA 


000E50=  'TH' 
000E52=  'ST' 
000E54-  '?=' 
000E56=  $2020 
000E58=  $2020 
000E5A=  $2020 
000E5C"  $2020 
000E5E=  $ODOA 


(TH-Start=  $E56) 


000E60=  'RG' 

000E62=  'ST' 

000E64=  'P=' 

000E66=  $2020   (RG-Start=  $E66 ) 

000E68^  $2020 


000E6A-  $2020 
000E6G'=  $2020 
000E6E=  $0D0A 


000E70= 

'FB' 

000E72= 

'ST' 

O0OE74= 

,p=, 

0O0E76= 

$2020 

000E78= 

$2020 

000E7A= 

$2020 

000E7C= 

$2020 

000E7E= 

$0D0A 

000E80" 

'GE' 

000E82= 

'AR' 

000E84= 

'  =  ' 

000E86= 

$2020 

000E88= 

$2020 

OOOESA^ 

$2020 

000E8O 

S2020 

000E8E= 

$0D0A 

000E90= 
nnnpQQ 

$0A0A 

(FB-Start=  $E76) 


(Gear-Start=  $E86) 


(Data  String  End) 


MAIN: 

Link  Trap  #14  extension  table  to  ROM  table 
001000  207C00005000      MOVE . L  #20480, AO 


001006  1E3C00FD 
00100A  4E4E 
00100C  21C85040 


001010  1E3C0000 
001014  4E4E 
001016  1E3C0001 
00101A  4E4E 


MOVE.B  #253. D7 

TRAP    #14 

MOVE.L  AO. $00005040 


MOVE.B  *0.D7 
TRAP    #14 
MOVE.B  #1.D7 
TRAP    #34 


define  starting 

table  address 
call  LXNKIT 

move  linking 
pointer  to  end  of 
trap  extension 
table  (points  to 
standard  ROM  table) 

call  p-init 

call  e-init 


BEGIN  LOOP: 

Write  Header  String  to  Console 
00101C  2A7C00000E00      MOVE.L  #3584. AS 
001022  2C7C00000E3E      MOVE.L  #3646. A6 
001028  1E3C00F3  MOVE.B  #243, D7 

00102C  4E4E  TRAP    #14 


starting  address 
ending  address 
call  OUTPUT 


Blank  out  old  values  in 
00102E  21FC202020200E46  MOVE 
001036  21FC202020200E4A  MOVE 
00103E  21FC202020200E56  MOVE 
001046  21FC20202020OE5A  MOVE 
00104E  21FC202020200E66  MOVE 
001056  21FC202020200E6A  MOVE 
00105E  21FC202020200E76  MOVE 
001066  21FC202020200E7A  MOVE 
00106E  21KC202020200E86  MOVE 
001076  21FC202020200E8A  MOVE 


Data  String  with  spaces 
L  #538976288, S00000E46 
L  #538976288, S00000E4A 
L  #538976288, S00000E56 
L  #538976288, S00000E5A 
L  #538976288, S00000E66 
L  #538976288, S0OOOOE6A 
I,  #538976288,  S00O0OE76 
L  #538976288, S00000E7A 
L  #538976288, $00000E86 
L  #538976288, S00000E8A 


Call  subroutine  GETDATA: 
00107E  4EB81300  JSR.S 


$00001300 


Prepare  Data  String  by  converting  hex  data  to  decimal 
and  then  storing  results  at  their  appropriate 
position  in  Data  String. 
RACK; 
001082  4280  CLR.L   DO 

001084  303809B0  MOVE . W  S000009B0.D0 


001088  2C7C00O00E46 


00108E  1E3C00EC 
001092  4E4E 


MOVE.L  #3654, A6 


MOVE.B  #236, D7 
TRAP    #14 


get  hex  value  of 

rack  from  current 

conditions 

structure 
get  Rack-Start  in 

Data  String 
call  HEX2DEC 


001094  4280 
001096  303809B2 


THSTP : 

CLR.L   DO 

MOVE.W  S000009B2.DO 


00109A  2C7C00000E56 


0010AO  1E3C00EC 
001 0A4  4E4E 


MOVE.L  #3670, A6 


MOVE.B  #236. D7 
TRAP    #14 


get  hex  value  ol 

thstp  from  current 

conditions 

structure 
get  TH-Start  in 

Data  String 
call  HEX2DEC 


0010A6  4280 
0010A8  303809B4 


RGSTP; 

CLR.L  DO 

MOVE.W  $000009B4,D0 


0010AC  2C7C0OO00E66 


0010B2  1E3C00EC 
0010B6  4E4E 


MOVE.L  #3686. A6 


MOVE.B  #236. D7 
TRAP    #14 


get  hex  value  of 

rgstp  from  current 

conditions 

structure 
get  RG-Start  in 

Data  String 
call  HEX2DEC 


117 


0010B8  4280 
0010BA  303809B6 


FBSTP : 

CLR .  L   DO 

MOVE.W  S000009B6.D0 


0010BE  2C7COO00OE76 


0010C4  1E3C00EC 
0010C8  4E4E 


MOVE.L  #3702, A6 


MOVE.B  #236, D7 
TRAP    #14 


get  hex  value  of 

fbstp  from  current 

conditions 

structure 
get  FB-Start  in 

Data  String 
call  HEX2DEC 


0010CA  4280 
0010CC  303809B8 


0010D0  2C7C00000E86 


CLR.L   DO 

MOVE.W  $000009B8.D0 


MOVE.L  #3718, A6 


get  hex  value  of 

gear  from  current 

conditions 

structure 
get  Gear-Start  in 

Data  String 
call  HEX2DEC 


0010D6  1E3C00EC  MOVE.B  #236.07 

0010DA  4E4E  TRAP    #14 

Write  Data  String  to  Console 

0010DC  2A7C00000E40  MOVE.L  #3648. A5  starting  address 

0010E2  2C7C00000E92  MOVE.L  #3730, A6  ending  address 

0010E8  1E3C00F3  MOVE.B  #243. D7  call  OUTPUT 

0010EC  4E4E  TRAP    #14 

Call  COMPUTE  (new  desired  position)  subroutine 


0010EE  4EB82000 

Set  new  outputs 
0010F2  1E3C0002 
0010F6  4E4E 
0010F8  1E3C0003 
0010FC  4E4E 
0010FE  1E3C0004 
001102  4E4E 
001104  1E3C0006 
001108  4E4E 


JSR.S   $00002000 

MOVE.B  #2.D7 
TRAP    #14 
MOVE.B  #3.D7 
TRAP    #14 
MOVE.B  #4,D7 
TRAP    #14 
MOVE.B  #6.D7 
TRAP   #14 


call  move- throttle 


call  move-cvt 


call  set-gear 


call  test-stabli 


Update  data  structures 
Current  ==  Desired 
00110A  4E71 
00110C  4E71 
00110E  4E71 
001110  31F809C209B4 
001116  31F809C409B8 

Jump  to  LOOP 
00111C  4EF8101C 
END  LOOP: 
END  MAIN=  $1120 


NOP 

NOP 

NOP 

MOVE.W  $000009C2,$000009B4  rgstp 

MOVE.W  $000009C4. $00000988  gear 

JMP.S   S0000101C 
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getdat .sub.s 

Sequential  Program  Execution  —  subroutine 


**********  **********************************#*********%*********■!:*  ****** 

SYNOPSIS: 

GETDAT  is  a  subroutine  called  by  MAIN.   The  purpose  of  the 
subroutine  is  to  collect  all  data  needed  by  the  program.  This 
data  consists  of  the  digital  inputs  under  direct  control  of  the 
MC68000,  and  the  Analog  inputs  under  the  ADAC  1000  control. 

Currently  only  the  digital  inputs  are  read,  since  the  desired 
outputs  are  determined  by  interactive  user  responses. 

To  Call: 

JSR  $1300 

DATA  STRUCTURES: 

GLOBAL  STRUCTURES  AFFECTED: 

current  external  conditions 

LOCAL  GETDATA  SCOPE . . . 

local  data  allocation  ($1200  to  $12FF) 


GETDATA: 

Read  external  data  under  direct  access  of  controller 

001300  1E3C0005  MOVE . B  #5 . D7  call  read-rack 

001304  4E4E  TRAP    #14 

001306  1E3C0009  MOVE . B  #9,D7  call  read-thstp 

00130A  4E4E  TRAP    #14 

00130C  1E3C0O0B  MOVE . B  #11. D7  call  read-fbstp 

001310  4E4E  TRAP    #14 

001312  4E75  RTS 
END  GETDATA-  $1314 


11!) 


************************************************************************ 


ASSEMBLY  LISTING  FOK  MOTOROLA  M68000  ECB  SINGLE  BOARD  COMPUTER 
CVT  —  ENGINE  PROJECT  —  CONTROLLER 


DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 


AUTHOR : 
DATE: 
FILE: 
TYPE : 


KENT  D.  FUNK 

8/17/85 

compute . sub. s 

Sequential  Program  Execution 


subroutine 

************************************************************************ 

SYNOPSIS: 


COMPUTE  is  a  subroutine  called  by  MAIN.   The  purpose  of  this 
subroutine  is  to  compute  the  new  desired  outputs  based  upon  the 
current  operating  state  of  the  drive  line. 

Currently,  the  subroutine  interactively  communicates  with  the 
user  to  determine  what  the  new  desired  operating  state  should  be. 
In  it's  final  form,  this  subroutine  will  implement  the 
optimization  algorithm.   All  inputs  to  the  subroutine  will  be 
obtained  by  the  GETDAT  subroutine. 


To  Call; 


JSR  $2000 


DATA  STRUCTURES: 

GLOBAL  STRUCTURES  AFFECTED: 
console  buffer 
desired  external  conditions 


LOCAL  COMPUTE  SCOPE... 

local  data  allocation  ($1500  to  $1FFF) 


001500= 

'EN 

001502= 

'TE 

001504= 

'R 

001506= 

'NE 

001508= 

'W 

00150A= 

'DA 

00150C= 

'TA 

00150E- 

'  :  ' 

001510= 

SODOA 

001512  — 

(String  #1) 


(String  #1  End) 
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001514=  'TH'  (String  #2) 

001516=  'ST1 

001518=  'P  ' 

00151A=  '?  ' 

00151C (String  #2  End) 

00151E-  'RG'  (String  #3) 

001520=  'ST' 

001522=  'P  ' 

001524=  '?  ' 

001526 (String  #3  End) 

001528=  'GE'  (String  #4) 

00152A=  'AR' 

00152C=  '  ?' 

00152E=  S0020 

001530 (String  #4  End) 


COMPUTE : 

Write  String  #1 
002000  2A7C00001500 
002006  2C7C00001512 
00200C  1E3C00F3 
002010  4E4E 


to  Console 

MOVE.L  #5376. A5 
MOVE.L  #5394, A6 
MOVE.B  #243,07 
TRAP    #14 


starting  address 
ending  address 
call  OUTPUT 


Write  String  #2  to  Console 
002012  2A7C00001514      MOVE.L  #5396, A5 
002018  2C7C0000151C      MOVE.L  #5404, A6 
00201E  1E3C00F3  MOVE.B  #243, D7 

002022  4E4E  TRAP   #14 


starting  address 
ending  address 
call  OUTPUT 


Get  a  string  from  the  Console 
002024  2A7C00000900      MOVE.L  #2304, A5 


00202A  2C4D 
00202C  1E3C00F1 
002030  4E4E 


MOVE.L  A5.A6 
MOVE.B  #241.1)7 
TRAP   #14 


console  buffer 
starting  address 

call  PORTIN1 


Convert  console  buffer  string  to  hex  and  store  result 
in  Desired  Condition  Structure 
002032  4280  CLR.L   DO 

002034  BDCD  CMP . L   A5.A6  skip  if  null 


12] 


002036  670A 
002038  1E3C00E1 
00203C  4E4E 
00203E  31C009CO 


BEO.S   $002042 
MOVE.B  #225.07 
TRAP    #14 
MOVE.W  D0,$000009C0 


line 
call  GETNUMD 


store  at  Desired 
THSTP 


Write  String  #3  to  Console 
002042  2A7C0000151E      MOVE.L  #5406, A5 
002048  2C7C00001526     MOVE.L  #5414, A6 
00204E  1E3C0OF3  MOVE.B  #243, D7 

002052  4E4E  TRAP    #14 


starting  address 
ending  address 
call  OUTPUT 


Get  a  string  from  the  Console 
002054  2A7C00000900      MOVE.L  #2304, A5 


00205A  2C4D 
00205C  1E3C00P1 
002060  4E4E 


MOVE.L  AS.A6 
MOVE.B  #241.1)7 
TRAP   #14 


console  buffer 
starting  address 

call  PORTIN1 


Convert  console  buffer  string  to  hex  and  store  results 
in  Desired  Condition  Structure 


002062  4280 

CLR .  L 

DO 

002064  BDCD 

CMP.L 

A5.A6 

002066  670A 

BEO.S 

$002072 

002068  1E3C00E1 

MOVE . B 

#225. D7 

00206C  4E4E 

TRAP 

#14 

00206E  31C009C2 

MOVE.W 

DO.  $0001 

Write  String  #4  to  Console 


002072  2A7C00001528 

002078  2C7C00001530 

00207E  1E3C00F3 

002082  4E4E 


MOVE.L  #5416. A5 
MOVE.L  #5424. A6 
MOVE.B  #243, D7 
TRAP   #14 


Get  a  string  from  the  Console 


002084  2A7C00000900 

00208A  2C4D 
00208C  1E3C00F1 
002090  4E4E 

Convert  console 
in  Desired 
002092  4280 
002094  BDCD 
002096  670A 
002098  1E3C00E1 
00209C  4E4E 
00209E  31C009C4 

0020A2  4E75 

END  COMPUTE=  S20A4 


MOVE.L  #2304. A5 

MOVE.L  A5.A6 

MOVE.B  #241 ,D7 

TRAP   #14 
buffer  string  to  hex  and 
Condition  Structure 

CLK.L  DO 

CMP.L   A5.A6 

BEQ.S   S0020A2 

MOVE.B  #225. D7 

TRAP    #14 

MOVE.W  D0,$000009C4 

RTS 


skip  if  null 

line 
call  GETNUMO 

store  at  Desired 
KGSTP 

stai  ting  address 
ending  address 
call  OUTPUT 


console  buffer 
starting  address 


call  PORTIN1 
store  result 


skip  if  null 

line 
call  GETNUMO 

store  at  Desired 
GEAR 
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8/17/85 
pinit  .s 
Software  Interrupt  Processing  —  level  0 


♦  ^♦♦♦A***************************************************************** 


P-INIT  initializes  the  peripherals  which  are  contained  on  the 
68000  ECB.   Configurations  are  set  for  the  host  ACIA  the  system 
real  time  interrupts  and  the  normal  shut  down  interrupt.   Auto 
Vector  interrupts  are  established  for  these  devices  and  the  CPU 
is  set  to  Supervisory  Mode.   In  addition  the  short  message 
"P-INIT"  is  displayed  on  the  Console  indicating  successful 
initialization. 

TO  CALL: 

MOVE.B  #00. D7 
TRAP   #14 


DATA  STRUCTURES: 


GLOBAL  STRUCTURES  AFFECTED: 
none 


LOCAL  P-INIT  SCOPE. 


005080=  'P-'  (pinit  string) 

005082=  'IN' 

005084=  'IT' 

005086=  SODOA 

005088 (pinit  string  End) 


P-INIT: 

Initialize  Auto  Vector  Interrupts 
Host  Interrupt  Vector=  S7000 
006000  21FC000070000078  MOVE . L  #28672 . S00000078     host  interrupt 
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Configure  Host  ACTA  #2 
006008  123900010041      MOVE . B  S00010041.D1 

00600E  123900010043     MOVE . B  $00010043, Dl 

006014  13FC009500010041  MOVE . B  #149 , $00010041 

Write  "P-INIT"  string  to  Console 
00601 C  2A7C00005080      MOVE.L  #20608, A5 
006022  2C7C00005088      MOVE.L  #206 16. A6 
006028  1E3C0OF3  MOVE . U  #243. D7 

00602C  4E4E  TRAP    #14 


dumb  read  on 

receive  register 
dumb  read  on 

transmit  register 
set  control 

register  format 

starting  address 
ending  address 
call  OUTPUT 


Set  CPU  to  Supervisory  Mode 
00602E  46FC2000  MOVE . W  #8192, SR 

006032  4E75  RTS 

END  PINIT=  $6034 
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************************************************************************ 


ASSEMBLY  LISTING  FOR  MOTOROLA  M68000  ECB  SINGLE  BOARD  COMPUTER 
CVT  —  ENGINE  PROJECT  --  CONTROLLER 

DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 

AUTHOR:        KENT  D.  FUNK 


DATE 
FILE 
TYPE 


8/17/85 
einit . s 
Software  Interrupt  Processing  —  level  1 


************************************************************************ 


E-INIT  initializes  the  peripherals  which  are  contained  on  the 
expansion  bus.   Configurations  are  set  for  both  off  board  PI/T' 
to  be  used  for  bit  I/O  and  stepper  motor  controllers.   Finally 
E-INIT  calls  SETUP  which  conducts  an  interactive  mode  of 
initializing  the  physical  engine  and  transmissions. 

TO  CALL; 

MOVE.B  #01, D7 
TRAP   #14 


DATA  STRUCTURES: 


GLOBAL  STRUCTURES  AFFECTED: 
none 


LOCAL  E-INIT  SCOPE. . 


0050C8=  'E-'  (einit  string  #1 ) 

0050CA=  'IN' 

0050CC=  'IT' 

0050CE=  SODOA 

0050D0 (einit  string  #1  End) 


00508A=  S2020  (einit  string  #2) 

00508C=  $2020 

00508E=  'SE' 

005090=  'T  ' 

005092=  'EN' 

005094=  'AB' 

005096=  'LE' 


005098=  'S  ' 

00509A=  'OS' 

00509C=  SODOA 

00509E --  (einit  string  #2  End) 
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E-INIT: 

Write  einit  string  #]  to  Console 
006100  2A7C000050C8      MOVE . L  #20680. A5 
006106  2C7C000050DO      MOVE . L  *20688,A6 
00610C  1E3C00F3  MOVE . 8  #243.07 

006110  4E4E  TRAP    #14 

Initialize  PI/T  #1   Base  Address=  $20000 
006112  13FC0OO00O02O0O1  MOVE . B  #0.800020001 

0061 1A  13FC000000020003  MOVE . B  #0.300020003 

006122  13FC00800002000D  MOVE . B  #128 . S0002000D 

00612A  13FCOOFF00020005  MOVE . B  #255 , $00020005 

006132  13FC000000020011  MOVE . B  #0. $00020011 

00613A  13FC00800002000F  MOVE . B  #128 . $0002000F 

006142  13FC000000020007  MOVE . B  #0, $00020007 

00614A  13FC000300020009  MOVE . B  #3. $00020009 

006152  13FC000000020027  MOVE . B  #0. $00020027 

00615A  13FC000000020029  MOVE . B  #0.300020029 

006162  13FC00010002002B  MOVE . B  #1,$0002002B 

00616A  13ECOOA700020021  MOVE . B  #167 , $00020021 

Initialize  PI/T  #2  Base  Address=  $20200 
006172  13FC000000020201  MOVE . B  #0.800020201 

0O617A  13FC000000020203  MOVE . B  #0. $00020203 

006182  13FC000300020209  MOVE . B  #3. $00020209 

00618A  13FC000000020227  MOVE . B  #0. $00020227 

006192  13FC000000020229  MOVE . B  *0,S00020229 

00619A  13FC000100020228  MOVE . B  #l.$OOO2022B 


starting  address 
ending  address 
call  OUTPUT 


Port  Genera] 

Control  Register 
Port  Service 

Request  Register 
Port  A  Control 

Register 
Port  A  Data 

Direction  Register 
Port  A  Data 

Register 
Port  B  Control 

Register 
Port  B  Data 

Direction  Register 
Port  C  Data 

Direction  Register 
Counter  Preload 

Register  High 
Counter  Preload 

Register  Mid 
Counter  Preload 

Register  Low 
Timer  Control 

Register 


Port  General 

Control  Register 
Port  Service 

Request  Register 
Port  C  Data 

Direction  Register 
Counter  Preload 

Register  High 
Counter  Preload 

Register  Mid 
Counter  Preload 


0061A2  13FC00A700020221  MOVE . B  #167 . $00020221 
0061AA  13FC000000020205  MOVE . B  #0.300020205 
0061B2  13FC00800002020D  MOVE.B  #128 , S0002020D 
0061BA  13FC00FFOO02O2O7  MOVE.B  #255.500020207 
0061C2  13FC00800002020F  MOVE.B  #128 . S0002020F 
0061CA  13FC001C00020213  MOVE.B  #28 . $00020213 

Write  einlt  string  #2  to  Console 


Register  Low 
Timer  Control 

Register 
Port  A  Data 

Direction  Register 
Port  A  Control 

Register 
Port  B  Data 

Direction  Register 
Port  B  Control 

Register 
Port  B  Data 

Register 


prompts  user  to  switch  external  power  "on" 


0061D2  2A7C0000508A 
0061D8  2C7C0000509E 

00B1DE  1E3C00F3 
0061E2  4E4E 


MOVE.L  #20618. A5 
MOVE.L  #20638. A6 
MOVE.B  #243, D7 
TRAP    #14 


starting  address 
ending  address 
call  OUTPUT 


Complete  physical  system  initialization 

0061 E4  1E3C000A  MOVE.B  #10. D7 

0061E8  4E4E  TRAP    #14 

0061 EA  4E75  RTS 
END  E-INIT=  $61EC 


call  setup 
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8/17/85 

thmove . s 

Software  Interrupt  Processing  —  level  2 


*******  ***************************************************************** 

SYNOPSIS: 

MOVE-TH  provides  the  software  interface  to  the  stepper  motor 
driver  associated  with  the  engine  throttle.   The  associated 
hardware  requires  the  following  inputs: 

1)  Direction  control  (PI/T  #1  portC-1) 

CW  (active  low) 
CCW  (active  high) 

2)  Step  size  (PI/T  #1  portC-O) 

For  the  throttle  stepper  motor  Step  Size  -  HALF  (active  high) 

3)  Clock  pulse  control  (PI/T  #1  timer) 

One  clock  pulse  per  step 

MOVE-TH  determines  the  relative  number  of  steps  to  be  moved 
in  a  particular  direction  by  knowledge  of  the  Current  THSTP 
and  the  Desired  THSTP  by  the  following  description. 

if  (desired  >  actual)  { 

move  (desired  -  actual)  half  steps  in  CW  direction: 

> 
else  if  (  actual  >  desired)  ( 

move  (actual  -  desired)  half  steps  in  CCW  direction: 

) 
else  if  (  actual  •>-  desired)  ( 

do  nothing: 

) 


TO  CALL: 

MOVE.B  #02.1)7 
TRAP    #14 


DATA  STRUCTURES: 

GLOBAL  STRUCTURES  AFFECTED: 
Program: 

current  externa]  conditions 
desired  external  conditions 

LOCAL  MOVF.-TH  SCOPE  .  .  . 
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005150 
005151 
005152 
005153 


( temporary) 
(4  consecutive  bytes  for  temporary  allocation 

for  use  in  byte  addressing  of  final  results) 


M0VE-TH: 
006200  4280 
006202  4281 
006204  303809C0 
006208  323809B2 
00620C  B041 

00620E  6E1A 

006210  674C 

006212  4E71 
006214  <1E7] 


CLR.L   DO 

CLR.L   Dl 

MOVE.W  SO000O9C0.D0 

MOVE.W  S000009B2.D1 

CMP.W   D1.D0 

BGT.S   S00622A 

8EQ.S   S00625E 

NOP 

NOP 


get  desired  THSTI' 
get  current  THSTP 
check  (DO  -Dl)  or 

(desired  -actual) 
branch  if  (desired 

>  actual ) 
branch  if  (des  red 

==  actual ) 


Set  conditions  for  actual  >  desired 
006216  9280  SUB.L   D0.D1 


006218  21C15150 


MOVE.L  Dl, $00005150 


00621C  13FC000300020019  MOVE . B  #3,500020019 


006224  6016 
006226  4E71 
006228  4E71 


BRA.S   SO0623C 

NOP 

NOP 


compute  actual  - 

desired  (D1-D0  to 

Dl) 
store  results  in 

temporary  local 

structure 
set  half  step,  CCW 

direction  at  port  C 


Set  conditions  for  desired  >  actual 
00622A  9081  SUB.L   D1.D0 


00622C  21C05150 


MOVE.L  DO, $00005150 


compute  desired  - 

actual  (D0-D1  to 

DO) 
store  results  in 

temporary  local 

structure 


006230  13FC000100020019  MOVE . B  #1, $00020019         set  half  step.  CW 

direction  at  port  C 

006238  4E71  NOP 

00623A  4E71  NOP 

Move  temporary  structure  to  timer 

00623C  13F8515100020027  MOVE . B  $00005151 , $00020027  store  temporary 

2nd  byte  in  timer 
preload  register 
(high) 

006244  13F8515200020029  MOVE . B  $00005152 , $00020029  store  temporary 

3rd  byte  in  timer 
preload  register 
(mid) 

00624C  13F851530002002B  MOVE . B  $00005153 , $0002002B  store  temporary 

4th  byte  in  timer 
preload  register 
(low) 

006254  13FC000100020035  MOVE . B  #1. $00020035         start  timer 

00625C  4E71  NOP 

00625E  4E75  RTS 

END  MOVE-TH-  $6260 
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8/17/85 

cvtmove . s 

Software  Interrupt  Processing  —  level  3 


**************************************************  t********************* 

SYNOPSIS: 

MOVE-CVT  provides  the  software  interface  to  the  stepper  motor 
driver  associated  with  the  CVT  transmission.   The  associated 
hardware  requires  the  following  inputs: 

1)  Direction  control  (PI/T  #2  portC-1) 

CW  (active  low) 
CCW  (active  high) 

2)  Step  size  (PI/T  #2  portC-O) 

For  the  CVT  stepper  motor  Step  Size  =  HALF  (active  high) 

3)  Clock  pulse  control  (PI/T  #2  timer) 

One  clock  pulse  per  step 

MOVE-CVT  determines  the  relative  number  of  steps  to  be  moved 
in  a  particular  direction  by  knowledge  of  the  Current  RGSTP 
and  the  Desired  RGSTP  by  the  following  description. 

if  (desired  >  actual)  ( 

move  (desired  -  actual)  half  steps  in  CW  direction: 

} 
else  if  (  actual  >  desired)  { 

move  (actual  -  desired)  half  steps  in  CCW  direction; 

> 
else  if  (  actual  »■  desired)  ( 

do  nothing; 

) 


TO  CALL; 

MOVE.B  #03. D7 
TRAP    #14 
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DATA  STRUCTURES: 

GLOBAL  STRUCTURES  AFFECTED: 
Program; 

current  external  conditions 
desired  external  conditions 

LOCAL  MOVE-CVT  SCOPE . . . 


005150 
005151 
005152 
005153 


(temporary) 
(4  consecutive  bytes  for  temporary  allocation 

for  use  in  byte  addressing  of  final  results) 


MOVE-CVT: 
006300  4280 
006302  4281 
006304  303809C2 
006308  323809B4 
00630C  B041 

00630E  6E12 

006310  673E 


CLR.L   DO 

CLR.L   Dl 

MOVE.W  $00000902, DO 

MOVE.W  $000009B4,D1 

CMP.W   D1.D0 

BGT.S   $006322 

BEQ.S   $006350 


Set  conditions  for  actual  >  desired 
006312  9280  SUB.L   D0.D1 


006314  21C15150  MOVE . L  Dl, $00005150 

006318  13FC000300020219  MOVE . B  #3, $00020219 

006320  600E  BRA.S   $006330 

Set  conditions  for  desired  >  actual 
006322  9081  SUB.L   D1.D0 

006324  21C05150  MOVE . L  DO. $00005150 

006328  13FC000100020219  MOVE . B  #1. $00020219 


get  desired  RGSTP 
get  current  RGSTP 
check  (D0-D1)  or 

(desired-actual ) 
branch  if  (desired 

>  actual ) 
branch  if  (desired 

=-  actual ) 


compute  (actual  - 

desired)  or  (01  -DO 

to  Dl ) 
store  results  in 

temporary  structure 
set  half  step.  CCW 

direction  at  port  C 


compute  (desired  - 

actual)  or  (DO   Dl 

to  DO) 
store  results  in 

temporary  structure 
set  half  step.  CW 

direction  at  port  C 
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Move  temporary  storage  to  timer  one  byte  at  a  time 

006330  13F8515100020227  MOVE . B  $00005151,800020227  store  temporary 

2nd  byte  in  timer 
preload  register 
(high) 

006338  13F8515200020229  MOVE . B  $00005152 , S00020229  store  temporary 

3rd  byte  in  timer 
preload  register 
(mid) 

006340  13F851530002022B  MOVE . B  $00005153 , $0002022B  store  temporary 

4th  byte  in  timer 
preload  register 
(low) 

006348  13FC000100020235  MOVE . B  #1, $00020235        start  timer 

006350  4E75  RTS 

END  MOVE-CVT=  $6352 
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SYNOPSIS: 

SET-GEAR  provides  the  software  interface  to  the  hardware 
controller  for  the  Power/Shift  transmission.   The  associated 
hardware  consists  of  six  bit  manipulated  external  control  lines 
via  PI/T  *1  Port  A.   The  Power/Shift  transmission  can  be  shifted 
from  one  gear  to  another  by  actuation  of  the  appropriate  solenoids 
mounted  on  the  transmission.   The  following  specifications  have 
been  established. 

Port  A  assignment; 
PAO  ==  S0L11 
PA1  «  S0L*2 
PA2  ■■  S0L#3 
PA3  =  =  S0L#4 
PA4  —  S0L#5 
PA5  >=  SOL#6 

GEAR  SELECTION; 


GEAR 

S0L#1 

S0L*2 

S0L#3 

S0L#4 

S0L#5 

S0L#6 

NEUTRAL 

0 

0 

0 

0 

0 

0 

1ST 

1 

0 

0 

0 

0 

1 

2ND 

1 

0 

0 

0 

t 

0 

3RD 

0 

1 

0 

0 

0 

1 

4TH 

0 

1 

0 

0 

1 

0 

5TII 

0 

0 

1 

0 

0 

1 

6TH 

0 

0 

1 

0 

1 

0 

Rl 

1 

0 

0 

1 

0 

0 

R2 

0 

1 

0 

1 

0 

0 

R3 

0 

0 

1 

1 

0 

0 

)  ■:.; 


In  addition,  a  lookup  table  has  been  established  (see  below) 
which  contains  the  hex  representations  of  Port  A  for  the  above 
listed  gears.   SET-GEAR  determines  the  appropriate  port  bit 
pattern  by  using  the  desired  gear  as  the  offset  in  the  lookup 
table,  and  then  writes  the  pattern  to  Port  A. 


TO  CALL; 


MOVE.B  #04, D7 
TRAP   #14 


DATA  STRUCTURES: 

GLOBAL  STRUCTURES  AFFECTED: 
Program; 

desired  external  conditions 

LOCAL  SET-GEAR  SCOPE... 


005144= 

$00 

(N  offset=  00) 

005145= 

$21 

(1st  offset=  01 ) 

005146= 

in 

(2nd  offset=  02) 

005147= 

$22 

(3rd  offset=  03) 

005148=- 

$12 

(4th  offset=  04) 

005149= 

$24 

(5th  offset=  05) 

00514A= 

$14 

(6th  offset=  06) 

00514B= 

$09 

(Rl  offset=  07) 

00514C= 

SOA 

(R2  offset=  08) 

005140= 

$oc 

(R3  offsets  09) 

00514E- 

-  (lookup  table  End) 

(pwr/shift  lookup  table) 


SET-GEAR: 
006400  4281 
006402  323809C4 
006406  227C00005144 


00640C  D3C1 


00640E  13D1000200U 


CLR.L   Dl 

MOVE.W  $000009C4.D1 

MOVE.L  #20804, Al 


ADD.L   D1.A1 


MOVE.B  (Al) ,$00020011 


006414  4E75  RTS 

END  SET-GEAR=  $6416 


get  desired  gear 
get  base  address 

of  pwr/shift  lookup 

table 
add  desired  gear 

(offset)  to  base 

address,  store 

results  in  Al 
move  the  byte 

stored  at  the 

address  in  Al  to 

PI/T  #1  Port  A  Data 

Register 


133 


******************************************** Wtt******************  ft**** 


ASSEMBLY  LISTING  FOR  MOTOROLA  M68000  ECB  SINGLE  BOARD  COMPUTER 
CVT  --  ENGINE  PROJECT  --  CONTROLLER 

DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 


AUTHOR: 
DATE: 
FILE: 
TYPE: 


KENT  D.  FUNK 

8/17/85 

readrack.s 

Software  Interrupt  Processing  —  level  5 


**************************************************************  **x******* 

SYNOPSIS: 

READ-RACK  provides  the  software  interface  to  the  10-bit  absolute 
encoder  (Litton  76NB10-5-S-1 )  which  is  mechanically  attached  to 
the  CAT  diesel  injector  pump  "rack".   Only  8-bits  of  resolution 
are  achieved,  however,  due  to  mechanical  linkage.   These  eight 
external  data  lines  are  accessible  via  PI/T  #1  Port  B. 


TO  CALL: 


DATA  STRUCTURES: 


MOVE.B  #05. D7 
TRAP    #14 


GLOBAL  STRUCTURES  AFFECTED: 
Program; 

current  external  conditions 

LOCAL  READ-RACK  SCOPE. . . 
none 


READ-RACK: 

006500  4280  CLR . L   DO 

006502  103900020013      MOVE.B  S00020013.D0 


006508  31C009B0 


MOVE.W  DO.S000009BO 


00650C  4E75  RTS 

END  READ-RACK=  S650E 


get  data  a  PI/T  #1 

Port  B  Data 

Register 
store  data  at  RACK 

in  current  external 

conditions 

structure . 
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6/17/85 

teststable. s 

Software  Interrupt  Processing  —  level  6 


SYNOPSIS: 

TEST-STABLE  insures  that  the  drive  line  actuators  are  stable 
before  releasing  control  back  to  sequential  execution. 

Due  to  the  slow  dynamics  of  the  controller  actuators  compared  to 
the  high  speed  of  the  CPU,  it  is  necessary  to  wait  until  all 
actuators  have  stopped  before  continuing  with  the  loop. 
TEST-STABLE  checks  each  of  the  outputs  to  determine  if  they  are 
stopped,  thus  Insuring  that  the  drive  line  actuators  are  stable. 
This  does  not  insure  that  the  drive  line  is  stable,  however, 
since  the  dynamics  of  drive  line  response  will  lag  the  actuators. 

To  Call ; 

MOVE.B  #6,D7 
TRAP    #14 

DATA  STRUCTURES: 

GLOBAL  STRUCTURES  AFFECTED: 
none 

LOCAL  TEST-STABLE  SCOPE... 
none 


TEST-STABLE: 

Wait  until  throttle  stepper  motor  stops 
006600  4280  CLR.L   DO 

006602  103900020035      MOVE.B  $00020035, DO         get  PI/T  #1  timer 

status  byte 
006608  028000000001     AND.L  #1,D0  isolate  timer 

empty  bit 
00660E  67F2  BEQ.S   S006602  branch  UD  if  zero 


Wait  until  CVT  stepper  motor  stops 
006610  4280  CLK.L   DO 

006612  103900020235     MOVE .  B  $00020235, DO        get  PI/T  #2  tinier 

status  byte 
006618  028000000001     AND.L  *1,D0  isolate  timer 

empty  bit 
0O661E  67F2  BEQ . S  $006612  branch  up  if  zero 

006620  4E75  RTS 

END  TEST-STABLE'  $6622 


************************************************************************ 
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regsave.s 

Software  Interrupt  Processing  --  level  7 


SYNOPSIS: 

REG-SAVE  saves  all  CPU  internal  data  registers  not  saved  as  a 
part  of  normal  context  switching.   It  is  intended  to  be  used  as 
the  first  procedure  to  be  executed  as  part  of  an  interrupt 
handler.   Since  interrupts  occur  asynchronously,  this  mechanisms 
provides  appropriate  safeguards  against  loss  of  critical  data 
during  interrupt  exception  processing. 

TO  CALL; 

MOVE.L  D7.$511C 
MOVE.B  *07,D7 
TRAP    #14 

WARNING: 

In  order  to  insure  that  ALL  data  remains  secure,  register  D7 
must  be  individually  saved  before  calling  this  routine.   This 
can  be  accomplished  by  the  above  code.   In  addition,  the 
appropriate  Motorola  M68000  manuals  should  be  consulted 
reguarding  exception  context  switching  before  using  this  call. 
It  should  also  be  noted  that  this  procedure  does  not  protect 
against  multiple  nested  interrupts.   If  this  were  to  occur, 
critical  data  will  be  lost.   For  the  present  time,  this  is 
acceptable,  however,  in  the  future  a  moving  interrupt  stack 
will  be  used. 


DATA  STRUCTURES: 

GLOBAL  STRUCTURES  AFFECTED: 
none 

LOCAL  REG-SAVE  SCOPE... 

005100    (DO)  (context  save) 
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005104 

(Dl) 

005108 

(D2) 

00510C 

(D3) 

0051JO 

(D4) 

005114 

(D5) 

005118 

(D6) 

005 11C 

(D7) 

005120 

(A0) 

005124 

(Al) 

005128 

(A2) 

00512C 

(A3) 

005130 

(A4) 

005134 

(A5) 

005138 

(A6) 

00513C 
nn=;i  -3r 

(SR)   WORD  ONLY 

REG-SAVE : 
006700  21C05100 
006704  21C15104 
006708  21C25108 
00670C  21C3510C 
006710  21C45110 
006714  21C55114 
006718  21C65118 
00671C  21C85120 
006720  21C95124 
006724  21CA5128 
006728  21CB512C 
00672C  21CC5130 
006730  21CD5134 
006734  21CE5138 
006738  40F8513C 
00673C  4E75 
END  KEG-SAVE=  S673E 


MOVE 

,L 

no 

,$00005100 

save 

[)() 

MOVE 

.L 

Dl 

.$00005104 

save 

Dl 

MOVE 

,L 

D2 

.$00005108 

save 

D2 

MOVE 

L 

D3 

,$0000510C 

save 

D3 

MOVE 

,L 

D4 

,$00005110 

save 

IM 

MOVE 

L 

D5 

,$00005114 

save 

D5 

MOVE 

I. 

D6 

,$00005118 

save 

D6 

MOVE 

L 

AO 

,$00005120 

save 

AO 

MOVE . 

L 

Al 

,$00005124 

save 

Al 

MOVE 

L 

A2 

,$00005128 

save 

A2 

MOVE. 

I. 

A3 

, $00005120 

save 

A3 

MOVE. 

L 

A4 

,$00005130 

save 

A4 

MOVE. 

L 

A5 

$00005134 

save 

A5 

MOVE 

L 

A6 

$00005138 

save 

A6 

MOVE . 

W 

SR 

S0000513C 

save 

SR 

RTS 

************************************************************************ 
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regrestore.s 

Software  Interrupt  Processing  --  level  8 


**#*******************«************ik*Xc**********¥**4:*********»*****«**** 


REG-RESTORE  restores  all  CPU  internal  data  registers  which  were 
saved  by  REG-SAVE.   It  is  intended  to  be  used  as  the  last 
procedure  to  be  executed  as  part  of  an  interrupt  handler.   This 
mechanism,  in  conjunction  with  REG-SAVE  provides  appropriate 
safeguards  against  loss  of  critical  data  during  interrupt 
exception  processing. 

TO  CALL; 

MOVE.B  #08. D7 
TRAP   #14 


In  order  for  this  routine  to  work  correctly  their  must  be  a 
correctly  installed  REG-SAVE  preceding  it. 


DATA  STRUCTURES: 

GLOBAL  STRUCTURES  AFFECTED: 
none 

LOCAL  REG-RESTORE  SCOPE... 

(context  restore) 


005100 

(DO) 

005104 

(Dl) 

005108 

(D2) 

00510C 

(D3) 

005110 

(D4) 

005114 

(D5) 

005118 

(D6) 

0051 1C 

(D7) 

005120 

(AO) 

005124 

(Al) 

005128 

(A2) 

00512C 

(A3) 

005130 

(A4) 

005134 

(A5) 

005138 

(A6) 

00513C 

(SR) 

WORD  ONLY 

00513C 



(context  restore  End) 

REG-RESTORE : 

006800 

20385100 

MOVE . L 

$00005100, DO 

restore 

DO 

006804 

22385104 

MOVE . L 

$00005104. Dl 

restore 

Dl 

006808 

24385108 

MOVE . L 

$00005108, D2 

restore 

D2 

00680C 

2638510C 

MOVE . L 

S0000510C.D3 

restore 

D3 

006810 

28385110 

MOVE .  I, 

$00005110. D4 

restore 

1)4 

006814 

2A385114 

MOVE . L 

$00005114, D5 

restore 

D5 

006818 

2C385118 

MOVE . 1 

$00005118, D6 

restore 

D6 

00681C 

2E38511C 

MOVE . L 

$000051 1C.D7 

restore 

D7 

006820 

20785120 

MOVE . L 

$00005120, AO 

restore 

AO 

006824 

22785124 

MOVE . L 

$00005124. Al 

restore 

Al 

006828 

24785128 

MOVE . L 

$00005128, A2 

restore 

A2 

00682C 

2678512C 

MOVE . L 

$00005120, A3 

restore 

A3 

006830 

28785130 

MOVE . L 

S00005130.A4 

restore 

A4 

006834 

2A785134 

MOVE . L 

$00005134, A5 

restore 

A5 

006838 

2C785138 

MOVE . L 

$00005138, A6 

restore 

A6 

00683C 

46F8513C 

MOVE . W 

$00005130. SR 

restore 

SR 

006840 

4E75 

RTS 

END  REG-RESTORE 

'    S6842 
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8/17/85 

readthstp.s 

Software  Interrupt  Processing  ™  level  9 


************************************************************************ 
GENERAL : 

In  order  to  generate  accurate  feedback  position  control  for  the 
two  stepper  motors,  incremental  encoders  have  been  used.   One  of 
the  encoders  has  been  mechanically  attached  to  the  throttle 
stepper  motor,  and  the  other  encoder  has  been  attached  to  the  CVT 
ring  drive.   Although  this  closed  loop  design  would  probably  not 
be  used  in  a  production  unit,  it  provides  the  needed 
repeatability  when  using  expiremental  open  loop  actuators. 

The  output  of  the  encoders  is  a  pair  of  square  wave  pulse  trains 
whose  phase  indicates  relative  direction.   By  correct  separation 
of  the  two  pulse  trains,  a  suitable  up/down  counter  can  be  driven 
to  give  400  counts/rev  resolution.   Two  20-bit  counters  were 
available  (see  Spaulding  1985)  which  correctly  read  quadrature 
output.   These  counters  were  incorporated  in  the  68000  off-board 
bus  structure.   The  counters  have  suitable  controls  to  multiplex 
the  data  to  an  8-bit  data  bus.   In  addition  seven  control  lines 
must  be  supplied.   To  accommodate  the  requirements  of  these 
devices  and  others  which  may  be  included,  an  8-bit  external  data 
bus  is  available  at  PI/T  #2  Port  A  and  an  8-bit  external  control 
bus  is  available  at  PI/T  #2  Port  B. 

The  following  external  bus  definitions  apply  to  the  20-bit 
up/down  counters. 

(external  data  bus) 


PortA; 

PAO 

==  DO 

PA1 

=  =  Dl 

PA2 

«  D2 

PA3 

=  =  D3 

l'A-1 

«  D4 

PA5 

==  D5 

PA6 

=  =  D6 

PA  7 

«  D7 

PortB: 

PB0 

-=  CL 

(external  control  bus) 
CLEAR  COUNTER*!     (active  high) 
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PB1  «  INHIBIT  COUNTERtl 

PB2  ==  Al 

PB3  ==  A2 

PB4  ==  A3 

PB5  —  CLEAR  COUNTER#2 

PB6  ==  INHIBIT  COUNTER#2 


(active  low) 


(active  high) 
(active  low) 


Control  of  an  Individual  counter  is  as  follows: 
Initialization: 

1)  CLEAR  COUNTER  and  INHIBIT  COUNTER  lines  are 

brought  low. 

2)  The  encoder  is  driven  to  "HOME"  reference. 

3)  CLEAR  COUNTER  is  driven  high  and  then  low. 

4)  INHIBIT  COUNTER  is  driven  high. 

It  should  be  noted  that  all  initialization  of  both 
counters  is  done  in  the  setup  routine. 
Normal  Operation: 

Reading  the  current  counter  values  is  accomplished  by 
enabling  the  desired  byte  (high,  mid,  low)  and  then 
reading  the  available  data  at  Port  A.   Proper 
enables  are  accomplished  by  the  following  bit  map. 


1 

PB6 

PB5 

PB4 



PB3 



PB2 

PB1 

PBO 

1  Byte  Enabled 

INH2 

CL2 

A3 

A2 

Al 

INH1 

CL1 

HEX 

1  Counter  #1 

- 

1     low  byte 

0 

1 

0 

0 

0 

$52 

1    mid  byte 

0 

1 

o 

1 

0 

$56 

i    high  byte 

0 

1 

1 

0 

0 

$SA 

1  Counter  #2 

1     low  byte 

0 

0 

0 

0 

0 

$42 

1    mid  byte 

0 

0 

0 

1 

0 

$46 

1    high  byte 

0 

0 

1 

0 

0 

$4A 

Disabled 

0 



1 

1 


1 


0 



$5E 

SYNOPSIS: 


READ-THSTP  provides  the  software  interface  to  the  100  cycles/rev 
incremental  encoder  (BEI  L25G-100-ABZ-7400R-S-)  which  Is 
mechanically  attached  to  the  throttle  stepper  motor.   A  gear 
ratio  cf  2:1  was  established  between  the  throttle  and  encoder  and 
the  resolution  of  the  throttle  stepper  is  400  steps/rev. 
Therefore,  if  the  counter  value  is  divided  by  two,  the  throttle 
step  position  is  determined.   The  technique  of  dividing  by  two 
compensates  for  any  backlash  in  the  gear  train. 


In  addition,  mechanical  considerations  indicate  that  the  maximum 
expected  counter  value  would  be  less  than  a  16  bit 
representation.   Therefore.  READ-THSTP  only  reads  the  low  16  bits 
of  the  20  bit  counter. 


MOVE.B  #09. 1)7 
TRAP    #14 


DATA  STRUCTURES: 


GLOBAL  STRUCTURES  AFFECTED: 
Program; 

current  external  conditions 

LOCAL  READ-THSTP  SCOPE... 
none 


1  14 


READ-THSTP: 

006900  13FC004200020213  MOVE.B  #66 . $00020213 


006908  4280  CLR.L   DO 

00690A  103900020211      MOVE.B  $00020211,00 


006910  13FC004600020213  MOVE.B  #70 , $00020213 


006918  4281  CLR.L   Dl 

00691A  123900020211      MOVE.B  $00020211,1)1 


006920  E199 

006922  D081 
006924  E288 

006926  0800000E 
00692A  6702 
00692C  4280 
00692E  31C009B2 


ROL.L  #8,D1 

ADD.L  Dl.DO 

LSR.L  #1,D0 

BTST  #14.  DO 

BEQ.S  S00692E 

CLR.L  DO 

MOVE.W  DO.S000009B2 


006932  13FC005E00020213  MOVE.B  #94 , $00020213 


00693A  4E75  RTS 

END  READ-THSTP=  $693C 


enable  counter  low 
byte  at  Port  B  data 
register 

read  counter  low 

byte  at  Port  A  data 

register 
enable  counter  raid 

byte  at  Port  B  data 

register 

read  counter  mid 
byte  at  Port  A  data 
register 

align  bytes  to 
form  correct,  word 

divide  results  by 

2 
if  counter  rolled 

under ,  then  set  DO 

to  zero, 
store  T1ISTP  in 

current  conditions 

structure 
disable  all 

drivers  on  externa] 

data  bus 
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8/17/85 

readfbstp.s 

Software  Interrupt  Processing  --  level  11 


t*******************************************************  *******  ****%**  #% 

GENERAL: 

See  READ-THSTP  for  general  incremental  counter  considerations. 

SYNOPSIS: 

READ-FBSTP  provides  the  software  interface  to  the  100  cycles/rev 
incremental  encoder  (BEI  L25G-100 -ABZ-7400R-S-)  which  is 
mechanically  attached  to  the  CVT  ring  drive.  Currently,  no  exact 
relation  is  known  between  the  encoder  and  the  CVT  stepper  motor. 
This  is  due  to  the  tentative  development  of  the  ring  drive 
actuator. 

Mechanical  considerations  indicate  that  the  maximum  expected 
counter  value  would  be  less  than  a  16  bit  representation. 
Therefore.  READ-FBSTP  only  reads  the  low  16  bits  of  the  20  bit 
counter. 

TO  CALL; 

MOVE.B  #11, D7 
TRAP    #14 

DATA  STRUCTURES: 

GLOBAL  STRUCTURES  AFFECTED: 
Program: 

current  external  conditions 

LOCAL  READ-FBSTP  SCOPE... 
none 

READ-FBSTP: 

006950  13FC005200020213  MOVE.B  #82 , $00020213       enable  counter  low 

byte  at  Port  B  data 
register 


Mb 


006958  4280  CLR.L   DO 

00695A  103900020211      MOVE . B  $00020211, DO 


006960  13FC005600020213  MOVE . B  #86,500020213 


006918  4281 

00696A  123900020211 


006970  E199 


006972  D081 
006974  4E71 


CLR.L   Dl 

MOVE.B  $00020211,01 


ROL.L   #8,D1 


ADD.L   Dl.DO 
NOP 


read  counter  low 

byte  at  Port  A  data 

register 
enable  counter  mid 

byte  at  Port  B  data 

register 

read  counter  mid 
byte  at  Port  A  data 
register 

align  bytes  to 
form  correct  word 


006976  0800000E 
00697A  6702 
00697C  4280 


BTST    #14, DO 
BEQ.S   $00697E 
CLR.L   DO 


if  counter  rolled 
under,  then  set  DO 
to  zero. 


0O697E  31C009B6 


MOVE.W  D0,$000009B6 


006982  13FC005E00020213  MOVE.B  #94 , $00020213 


00698A  4E75  RTS 

END  READ-FBSTP=  $698C 


store  FBSTP  in 

current  conditions 

structure 
disable  all 

drivers  on  external 

data  bus 


1-17 


**************************** ********************* 


*********************** 
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6/17/8S 
setup. s 
Software  Interrupt  Processing  --  level  10 


^♦♦♦♦♦^^♦w^************************************************,,;**^^*.* 

SYNOPSIS: 

SETUP  conducts  an  interactive  mode  of  initializing  the  physical 
engine  and  transmissions.   This  procedure  is  executed  only  once 
and  must  be  preformed  after  all  computer  hardware  has  been 
initialized  (p-init  and  e-init). 

To  Call; 

MOVE.B  #10, D7 
TRAP   #14 


DATA  STRUCTURES: 

GLOBAL  STRUCTURES  AFFECTED: 
Program: 

console  buffer 

current  external  conditions 

desired  external  conditions 

LOCAL  SETUP  SCOPE. . . 


50A0=  $20202020  (setup  string  #1) 

50A4-  $20202020 

50A8=  'CO' 

50AA=  'NT' 

50AC=  'IN' 

50AE=  'UE' 

50B0  =  '?  ' 

50B2 (setup  string  #1  end) 


50B4-  $20202020  (setup  string  #2) 

50B8=  'ST' 
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50BA= 

'AR' 

50BC= 

'T  ' 

50BE  = 

'EN' 

50C0= 

'GI' 

50C2  = 

'NE' 

50C4= 

SODOA 

50C6- 

(setup  string  #2  end) 


SETUP: 

Write  setup  string  #1  to  Console 
006A00  2A7C000050A0      MOVE . L  #20640. A5 
006A06  2C7C000050B2      MOVE . L  #20658. A6 
006A0C  1E3C00F3  MOVE . B  #243. D7 

006A10  4E4E  TRAP    #14 


starting  address 
ending  address 
call  OUTPUT 


Walt  for  user  Response 
006A12  2A7C00000900      MOVE.L  #2304. A5 


006A18  2C4D 
006A1A  1E3C00F1 
006A1E  4E4E 


MOVE.L  A5.A6 
MOVE.B  #241,D7 
TRAP   #14 


console  buffer 
starting  address 


call  P0RTIN1 


Move  throttle  500  steps  up 
006A20  13FC000100020019  MOVE.B  #1. $00020019 


006A28 
006A30 
006A38 
006A40 

Wa 
006A48 
006A4E 


13FC000000020027 

13FC000100020029 

13FCOOF40002002B 

13FC000100020035 

it  till  throttle 

103900020035 

028000000001 


006A54  67F2 


MOVE.B  #0, $00020027 

MOVE.B  #1 .$00020029 

MOVE.B  #244.$0002002B 

MOVE.B  #1, $00020035 

stops 

MOVE.B  $00020035. DO 

AND.L   #1,D0 

BEQ.S   $006A48 


select  half  steps. 

CW  rotate  at  Pl/T#l 
timer  high 
timer  raid 
timer  low 
start  timer 

timer  status  byte 
isolate  time  out 
bit 

branch  up  if  zero 


Search  down  the  throttle  2  steps  at  a  time. 

After  every  two  steps  check  for  home  switch  detect. 
Insure  switch  reading  by  4  consecutive  positive  reads. 


006A56  13FC000300020019  MOVE.B  #3, $00020019 

006A5E  13FC000000020027  MOVE.B  #0. $00020027 
006A66  13FC000000020029  MOVE.B  #0.500020029 
006A6E  13FC000200020028  MOVE.B  #2, $00020028 
006A76  13FC000100020035  MOVE.B  #1. $00020035 
006A7E  123C0000  MOVE.B  #0.D1 


006A82  103900020035 
006A88  028000000001 


MOVE.B  $00020035, DO 
AND.L   #1,D0 


select  half  step. 

CCW  rotate  at  PI /I 
timer  high 
timer  mid 
timer  low 
start  timer 
Dl  is  event 

detection  counter 
get  timer  status 
isolate  time  out 

bit 
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006A8E  67F2 
006A90  363CFFFF 
006A94  57CBFFFE 
006A98  103900020019 

006A9E  028000000010 


006AA4 
006AA6 
006AAA 
006AAE 
006A82 
006AB6 


67B0 

363CFFFF 

57CBFFFE 

363CFFFF 

57CBFFFE 

06010001 


006ABA  OC010004 


006ABE  66D8 


BEQ.S   S006A82 
MOVE.W  #-l,D3 
DBEQ.L  D3.S006A94 
MOVE.B  $00020019, DO 

AND.L   #16, DO 

BEQ.S   S006A56 
MOVE.W  #-l,D3 
DBEQ.L  D3.S006AAA 
MOVE.W  #-l,D3 
DBEQ.L  D3.S006AB2 
ADD.B   #1,D1 

CMP.B   *4,D1 


BNE.S   S006A98 


branch  up  If  zero 
PAUSE  for 

a  moment 
get  home  detect 

Input 
isolate  throttle 

home  bit 
branch  up  if  zero 
pause  for  a  while 

to  let  home 

switch  debounce. 

increment  event 
detection  counter 

check  if  we  have 
four  consecutive 
reads 

branch  uo  if  not 


Throttle  is  now  at  home  position 

Now  reset  20-bit  throttle  position  counter  to  zero 
006AC0  13FC001D00020213  MOVE.B  #29, $00020213        set  CLEAR  COUNTER 

high 
006AC8  13FC001C00020213  MOVE.B  #28,500020213        set  CLEAR  COUNTER 

low 
006AD0  13FC001E00020213  MOVE.B  #30 , $00020213       enable  counter 


Move  throttle  up  900  steps 
006AD8  13FC000100020019  MOVE.B  #1, $00020019 

006AE0  13FC000000020027  MOVE.B  #0, $00020027 

006AE8  13FC000400020029  MOVE.B  #4,500020029 

006AF0  13FC004C0002002B  MOVE.B  #76 . S0002002B 

006AF8  13FC000100020035  MOVE.B  #1. $00020035 

006B00  4E71  NOP 

006B02  4E71  NOP 

006B04  4E71  NOP 

006B06  31FC044C09CO  MOVE.W  #1100 , $000009CO 


select  half  step. 

CW  rotation  9  PI/T#1 
timer  high 
timer  mid 
timer  low 
start  timer 


update  desired 
position  structure 
THSTP 


Write  setup  string  #2  to  Console 


006B0C  2A7C000050B4 
006B12  2C7C000050C6 
006B18  1E3CO0F3 
006B1C  4E4E 


MOVE.L  #20660. A5 
MOVE.L  #20678, A6 
MOVE.B  #243, D7 
TRAP    #14 


starting  address 
ending  address 
call  OUTPUT 


Write  setup  string  #1  to  Console 
006B1E  2A7C000050A0      MOVE.L  #20640. A5 
006B24  2C7C000050B2      MOVE.L  #20658, A6 


starting  address 
ending  address 


ISO 


006B2A  1E3C00F3 
006B2E  4E4E 


MOVE.B  #243, D7 
TRAP    #14 


call  OUTPUT 


Wait  for  user  Response 
006B30  2A7C00000900      HOVE . L  #2304, A5 


006B36  2C4D 
006B38  1E3C00F1 
006B3C  4E4E 


MOVE.L  A5.A6 
MOVE.B  #241 ,D7 
TRAP   #14 


console  buffer 
starting  address 


call  PORTIN1 


Move  Ring  Position  500  steps  up 
006B3E  13FC000100020219  MOVE.B  #1, $00020219 

006B46  13FC000000020227  MOVE.B  #0.500020227 
006B4E  13FC000100020229  MOVE.B  #1, $00020229 
006B56  13FC00F40002022B  MOVE.B  #244 , $0002022E 
006B5E  13FC000100020235  MOVE.B  #1, $00020235 


select  half  steps. 
CW  rotate  at  Pi/T#2 
timer  high 
timer  mid 
timer  low 
start  timer 


Wait  till  Ring  stops 
006B66  103900020235      MOVE.B  $00020235,00 
006B6C  028000000001      AND . L   #1,D0 


006B72  67F2 


BEQ.S   $006B66 


Search  down  the  ring  travel  2  steps  at 
After  every  two  steps  check  for  ho 
Insure  switch  reading  by  4  consecu 
006B74  13FC000300020219  MOVE.B  #3, $00020219 

006B7C  13FC000000020227  MOVE.B  #0, $00020227 
006B84  13FCO00000020229  MOVE.B  #0, $00020229 
006B8C  13FC00020002022B  MOVE.B  #2.$0002022B 
006B94  13FC000100020235  MOVE.B  #1. $00020235 
006B9C  123COO0O         MOVE.B  #0,D1 


006BA0  103900020235 

006BA6  028000000001 

006BAC  67F2 
006BAE  363CFFFF 
006BB2  57CBFFFE 
006BB6  103900020219 

006BBC  028000000010 

006BC2  67B0 
006BC4  363CFFFF 
006BC8  57CBFFFE 
006BCC  363CFFFF 
006BD0  57CBFFFE 


MOVE.B  $00020235, DO 

AND.L   #1,D0 

BEQ.S   $006BA0 
MOVE.W  #-l,D3 
DBEQ.L  D3.S006BB2 
MOVE.B  $00020219,00 

AND.L   #16, DO 

BEQ.S   S0O6B74 
MOVE.W  #-1 ,D3 
DBEQ.L  5006BC8 
MOVE.W  #-l.D3 
DBEQ.L  S006BD0 


timer  status  byte 
isolate  time  out 
bit 
branch  up  if  zero 

time, 
me  switch  detect. 
tive  positive  reads. 

select  half  step, 

CCW  rotate  at.  P]/T#2 
timer  high 
timer  mid 
timer  low 
start  timer 
Dl  is  event 

detection  counter 
get  timer  status 

byte 
isolate  time  out 

bit 
branch  up  if  zero 
PAUSE  for 

a  moment 
get  home  detect 

input 
isolate  ring  home 

bit 
branch  up  if  zero 
pause  for  awhile  to 

let  home  switch 

debounce. 
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006BD4  06010001  ADD . B   #1.D1 

006BD8  OC010004  CMP.B   #4.D1 


006BDC  66D8 


BNE.S   S006BB6 


increment  event 
detection  counter 

check  if  we  have 
four  consecutive 
reads 

branch  up  if  not 


CVT  rings  are  now  at  home  position 

Reset  and  initialize  fb-stp  counter. 
006BDE  13FC003E00020213  H0VE.B  #62 , $00020213 
006BE6  13FC001E00020213  MOVE . B  #30 , $00020213 
006BEE  13FC005E000202]3  MOVE . B  #94 , $00020213 

Update  the  rest  of  the  global  data  structures 


006BF6  31FC000009B4 
006BFC  31FC000009C2 
006C02  31FC000009B8 
006C08  31FC000009C4 
006C0E  31FC000009B6 
006C14  4E75 
END  SETUP-  $6016 


MOVE.W  #0,$000009B4 
MOVE.W  #0, $00000902 
MOVE.W  #0.$000009B8 
MOVE.W  #0, $00000904 
MOVE.W  #0.$000009B6 
RTS 


current  RGSTP 
desired  RGSTP 
current  gear 
desired  gear 
current  FBSTP 
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******************************************* ********#************ ***%**** 


ASSEMBLY  LISTING  FOR  MOTOROLA  M68000  ECD  SINGLE  BOARD  COMPUTER 
CVT  --  ENGINE  PROJECT  --  CONTROLLER 

DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 

AUTHOR:        KENT  D.  FUNK 


DATE 
FILE 
TYPE 


6/17/85 

hostint.s 

Hardware  Interrupt  Processing  —  ADAC  1000 


************************************************************************ 
SYNOPSIS: 

HOST-INT  provides  the  interrupt  handler  for  all  MC68000  to  ADAC 
communications.   In  it's  final  form,  this  routine  will  control 
communications  in  both  directions.   Currently,  however,  the 
routine  only  provides  for  data  to  be  passed  from  the  MC68000  to 
the  ADAC.   This  has  proved  sufficient  for  drive  line  mapping. 
Once  the  implementation  of  the  control  algorithm  is  in  place, 
bi-directional  data  flow  will  be  needed. 

Control  of  data  flow  is  accomplished  by  message  passing.   If  the 
ADAC  desires  updated  information  from  the  MC68000,  it  writes  a 
'R'  for  request  to  ACIA  #2.   When  the  character  is  caught,  a 
priority  6  hardware  interrupt  is  generated.   The  existence  of 
this  interrupt  prompts  the  MC68000  to  enter  exception  processing 
using  HOST-INT  as  the  handler.   Once  it  has  been  determined  that 
a  valid  request  has  been  made.  HOST-INT  updates  the  current 
conditions  structure  and  proceeds  to  form  an  ASCII  string  from 
the  data.   Notice  that  a  tag  'S'  is  placed  at  the  beginning  of 
the  string.   This  allows  the  ADAC  to  know  that  the  MC68000  is 
"sending"  data  to  a  valid  request.   These  tags,  ie  'S'  and  'R'. 
allow  for  adequate  error  checking  and  prevents  handling  spurious 
interrupts . 

DATA  STRUCTURES: 

GLOBAL  STRUCTURES  AFFECTED: 
Program: 

current  external  conditions 

LOCAL  HOST-INT  SCOPE... 


5800=  'S  '  (host  response  string) 

5802=  S2020  (rack-start) 


1 53 


5804- 

S2020 

5806= 

$2020 

5808  = 

$2020 

580A= 

$2020 

(thstp-start) 

580C  = 

$2020 

580E= 

$2020 

5810= 

$2020 

5812= 

$2020 

(rgstp-start) 

5814  = 

$2020 

5816= 

$2020 

5818  = 

$2020 

581A= 

$2020 

(fbstp-start) 

581C= 

$2020 

581E= 

$2020 

5820= 

$2020 

5822= 

$2020 

(gear-start ) 

5824  = 

$2020 

5826= 

$2020 

5828  = 

$2020 

582A= 
582C- 

$000A 

(host  response 

string  end) 

HOST-INT: 

007000  13FC001500010041  MOVE . B  #21 ,$00010041 


007008  21C7511C 
00700C  1E3C0007 
007010  4F.4E 
007012  1A3900010041 

007018  4285 
00701A  1A3900010043 
007020  0205007F 
007024  0C050052 
007028  6704 
00702A  4EF870EC 

REQUEST: 

Blank  out  host 
00702E  207C00005800 
007034  30FC5320 
007038  20FC20202020 
00703E  20FC20202020 
007044  20FC20202020 
00704A  20FC20202020 
007050  2OFC2O2O2020 
007056  20FC20202020 
00705C  20FC20202020 
007062  20FC20202020 


MOVE.L  D7, $000051 1C 
MOVE.B  #7,D7 
TRAP    #14 
MOVE.B  $00010041,  L>5 

CLR.L   D5 

MOVE.B  $0001 0043, D5 
AND.B   #127. D5 
CMP.B   #82. D5 
BEO.S   $00702E 
JMP.S   S000070EC 


response  string 

MOVE.L  #22528, AO 
MOVE.W  #21280. (AO) 
MOVE.L  #538976288. 
MOVE.L  #538976288. 
MOVE.L  #538976288. 
MOVE.L  #538976288. 
MOVE.L  #538976288. 
MOVE.L  #538976288, 
MOVE.L  #538976288, 
MOVE.L  #538976288, 


shut  off  ACIA 
interrupt  bit 
save  register  D7 
call  SAVE -REG 

dumb  read  on 
status  register 

get  a  character 
mask  high  bit 
is  it  an  ~R' 
branch  to  REQUEST: 
jump  to  CLEAR: 


base  address 

+ 

'S  ■ 

(A0)  + 

spaces 

(A0)  + 

spaces 

(A0)  + 

spaces 

(A0)  + 

HDaces 

(A0)  + 

soaces 

(A0)  + 

spaces 

(AO)* 

spaces 

(AO)-r 

spaces 

[54 


007068  20FC20202020 
00706E  20FC20202020 
007074  30FC200A 


MOVE . L  #538976288 .( AO ) 4 
MOVE.L  #538976288, (AO)i 
MOVE.W  #8202,  (AO)t- 


Update  current  conditions  structure 


007078  1E3C0005 
00707C  4E4E 
00707E  1E3C0O09 
007082  4E4E 
007084  1E3C000B 
007088  4E4E 


MOVE.B  #5.D7 
TRAP    #14 
MOVE.B  #9.D7 
TRAP    #14 
MOVE.B  #11, D7 
TRAP   #14 


spaces 
spaces 
space-LF 


call  READ-RACK 
call  READ-THSTP 
call  READ-FBSTP 


Get  RACK  reading,  convert,  and  store  in  host  response  string. 


00708A  303809B0 
00708E  2C7C00005802 


007094  1E3C00EC 
007098  4E4E 


MOVE.W  $00O009B0,D0 
MOVE.L  #22530, A6 


MOVE.B  #236, D7 
TRAP   #14 


rack  reading 
position  in  host 

string 
call  HEX2DEC 


Get  TH-STP  reading,  convert,  and  store  in  host  response  string. 


00709A  303809B2 
00709E  2C7C0000580A 


0070A4  1E3C00EC 
0070A8  4E4E 


MOVE.W  S000009B2.D0 
MOVE.L  #22538, A6 


MOVE.B  #236. D7 
TRAP   #14 


th-stp  reading 
position  in  host 

string 
call  HEX2DEC 


Get  RG-STP  reading,  convert,  and  store  in  host  response  string. 


0070AA  303809B4 
0070AE  2C7C00005812 


0070B4  1E3C00EC 
0070B8  4E4E 


MOVE.W  S000009B4.D0 
MOVE.L  #22546, A6 


MOVE.B  #236, D7 
TRAP    #14 


rg-stp  reading 
position  in  host 

string 
call  HEX2DEC 


Get  FB-STP  reading,  convert,  and  store  in  host  response  string. 


0070BA  303809B6 
0070BE  2C7C0000581A 


0070C4  1E3C00EC 
0070C8  4E4E 


MOVE.W  S000009B6.D0 
MOVE.L  #22554. A6 


MOVE.B  #236. D7 
TRAP   #14 


fb-stp  reading 
position  in  host 

string 
call  HEX2DEC 


Get  GEAR  reading,  convert,  and  store  in  host  response  string. 


0070CA  303809B8 
0070CE  2C7C00005822 


0070D4  1E3C00EC 
0070D8  4E4E 


MOVE.W  S000009B8.DO 
MOVE.L  #22562, A6 


MOVE.B  #236, D7 
TRAP    #14 


gear  reading 
position  in  host 

string 
call  HEX2DEC 


Write  host  response  string  out  to  ACIA. 
0070DA  2A7C00005800      MOVE.L  #22528. A5 


string  starting 
address 
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0070E0  2C7C0000582C 


0070E6  1E3C00F2 
0070EA  4E4E 


CLEAR: 

0070EC  103900010041 


0070F2  08000000 
0070F6  6708 

0070F8  1A3900010043 

0070FE  60EC 

DONE: 

007100  1E3C0008 

007104  4E4E 


MOVE.L  #22572, A6 


MOVE.B  #242. D7 
TRAP    #14 


MOVE.B  S00010041 , DO 


BTST    #0 . DO 
BEQ.S   S007100 


MOVE.B  $0001 0043. D5 
BRA.S   S0070EC 


MOVE.B  #8,D7 
TRAP   #14 


007106  13FC009500010041  MOVE.B  #149 . $00010041 
00710E  4E73  RTE 

END  H0ST-INT=  $7110 


string  ending 

address  +  1 
call  0UTPUT21 


dumb  read  on  ACiA 
status  register 
clears  interrupt 
conditions 

test  if  clear 

branch  on  clear  to 
DONE: 

dumb  read  on 
receive  register. 

branch  to  CLEAR: 


call  REG-RESTORE 

enable  ACIA 

interrupts 
return  from 

exception 
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APPENDIX  E 
ADAC  1000  HOST  DEVELOPMENT  SOFTWARE  LISTINGS 


ir.7 


************************************************************************ 


C-SOURCE  LISTING  FOR  ADAC  1000  COMPUTER 

CVT  --  ENGINE  PROJECT  --  MC68000  DEVELOPMENT 

DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 


AUTHOR : 

KENT  D.  FUNK 

DATE: 

4/5/85 

FILE: 

transfer .c 

************************************************************************ 

/*  This  file  contains  a  program  to  upload  or  download  programs 
between  a  UNIX  machine  and  the  MC68000  ECB.   Both  S-records  and 
listings  can  be  handled  this  way.  */ 

/*  Too  complile  and  link:   — >  cc  transfer. c 
Too  run:   — >  transfer      */ 


*include  <stdio.h> 

FILE  *fp.  *fopen(); 
char  linef801 ; 


/******  MAIN!) 

main( ) 

{ 

char  filer20l  ; 

int  direct: 

printf ("Enter  filename  — >  "); 
fflush(stdout) ; 
fgetsdine,  80,  stdin); 
sscanffline,  "*s",  file); 

printf ( "\nEnter  option. \n" ) ; 
printf C'Dump=l .  Load=2\n"); 
fgets(line,  80.  stdin); 
sscanf(line,  "Ssd" ,  Sdirect) ; 

if  (direct  ==  1 )  { 
exit: 

printf ( "Waiting  for  your  exit.Xn"); 
fgetsdine.  80.  stdin); 

/*  exiting  character  sent  by  tutor=  $01  */ 
if  ("line  !=  1) 
goto  exit: 


dump( file) ; 
fclose(fp) ; 
return; 
> 

if  (direct  ==  2)  { 

printf ("Waiting  for  your  exitAn"); 
t: 

fgets(line.  80,  stdin); 

/*  Tutor  uses  "VE2  : =READY"  or 

"L02  ;=READY"  to  verify 
and  load  S-Record  Format  */ 
if  (*line  I-  *R'  ) 

goto  start; 
load(file); 
f close( fp)  ; 
return; 
} 
printf ( "Incorrect  option  specif ied.\n\n") ; 


/******  DUMP() 

/* 

Dump  Routine. 

The  dump  routine  reads  the  standard  input  and  writes 

out  to  the  named  file.  */ 

dump (f name) 
char  *fname; 
{ 

fp=  fopen(fname,  "w" ) ; 
loop: 

fgets(line,  80,  stdin); 
if  ("line  ==  0) 
goto  loop; 

/*  To  stop  input,  return  to  shell  and  type  "x"  */ 
if  ("line  ==  'x' ) 

return; 
fprintflfp.  "Sis",  line); 
goto  Iood; 
> 


/*»****  LOAD!) 

/* 

Load  Routine. 

The  load  routine  reads  from  the  named  file  and  writes 

to  the  standard  output.   */ 


I  :VJ 


load( fname) 
char  *fname; 
{ 

loop: 


fp=  fopen(fname,  "r"); 

fgets(line,  80,  fp) ; 
if  (feof(fp)) 

return; 
printf {"*s" ,  line) ; 
goto  loop; 


/*  NOTICE:   For  these  routines  to  work  properly,  the  tutor  escape 
character  must  be  'A  (default),  and  the  trailing  character  must 
be  S0A.<lf>.   The  line  feed  must  be  specified  in  the 
initialization  proceedures  as  follows: 

TUTOR  1.3  >  MM  4EA 

0004EA    18  ?0A.<cr> 
*/ 
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i*****'--y***.*v<^  ****:(:**************  ***************^***************X**^*** 


C-SOURCE  LISTING  FOK  ADAC  1000  COMPUTER 

CVT  --  ENGINE  PROJECT  --  MC68000  DEVELOPMENT 

DEPARTMENTS  OF  MECHANICAL  AND  AGRICULTURAL  ENGINEERING 


AUTHOR : 

KENT  D.  FUNK 

DATE: 

4/5/85 

FILE: 

comment . c 

♦  A********************************************************************** 

/*  This  file  contains  a  program  to  comment  MC68000  programs  which 
have  been  dumped  onto  a  UNIX  system  using  "transfer"  */ 

/*  Too  complile  and  link:    -->  cc  -o  comment  comment. c  */ 

/*  In  order  to  use  this  comment  editor,  the  assembly  listings 
MUST  first  be  packed.   This  can  be  done  by  creating  two  files: 

FILE  #1:   pack 

x  $1  <pedit 

FILE  #2:   pedit 

g/    /s//  / 
g/   /s//  / 


Then  the  source  files  may  be  packed  by: 
— >  pack  <filename> 

Then  the  source  files  may  be  commented  by: 

-->  comment  <filename> 
*/ 


♦include  <stdio.h> 
♦include  <ctype.h> 


FILE  *r.  *w.  *fopen( ) : 

/***«**  MAINO 

main(argc.  argv) 

int  argc; 

char  **argv: 

< 

char  buff [2001.  blank[801: 
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char  linel[200|,  Hne2[200],  line3[200!,  f ile[20] ; 
char  *ptrl ,  *ptr2,  *ptr3,  *ptr4 ; 
int  lenl,  len2,  spaces,  index; 

if  (argc  l»  2)  { 

fprintf (stderr,  "Usage:   comment  <f ilename>. \n" )  : 

exit(l) ; 
} 

strcpy(file,  argv(ll); 
spaces=  57: 
ptr3=  &blank(0] ; 
while  (spaces)  { 

*ptr3=  '  ' ; 

ptr3++: 

spaces — ; 
} 


restart : 

r»  fopen(file,  "r");     /*  open  file  for  read 
at  top  of  file  */ 

w=  fopen(  "comment  .edt"  ,  "w"  )  :  /*  opens  writing  file  */ 
loop: 

ptrl=  linel : 
ptr3=  line3; 
index-  200; 
while  (index)  { 

*ptrl=  0; 

*ptr3=  0: 

ptrl++; 

ptr3<-+; 

index — ; 
) 

strcpy(line3,  blank); 

fgetsdinel.  150,  r);    /*  get  a  line  from  the  opened  file  */ 

if  (feof(r)) 

printf("End  of  File\n") : 
tryagain: 

ptr2=  line2; 
index=  200; 
while  (index)  { 

*ptr2=  0; 

ptr2++; 

index — : 
) 

printf ("$s" .  linel); 
printf("?>  "); 
fflush(stdout) ; 
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fgets(line2,  150,  stdin) ; 


switch  (*line2)  ( 
case  10: 

fprintf(w,  "%s",  Uriel); 
break; 

case  '?' : 

printf( "Available  editor  commands  are:\n"); 
printf ("\ti  (line  of  text) \tinserts  the  line  of\n"); 
printf ( "\t\t\t\ttext  above  the  current  lineAn"); 
printf("\ta  (line  of  text)\tappends  the  line  of\n"); 
printf ("\t\t\t\ttext  to  the  current  lineAn"); 
printf ("\td\t\t\tdeletes  the  current  lineAn"); 
printf  ( "\tw\t\t\tsaves  the  file,  resume  at  the  top  of  the  fileAn"); 
printf ( "\tq\t\t\tquits  comment. \n" ) : 
printf  ( "\t<ret>\t\t\ts'kips  to  next  lineAn"); 
printf ("\t?\t\t\tprints  this  listAn"); 
goto  tryagain; 
break; 

case  ' d' : 

break; 


case 


line2[0]=  '  '  ; 
fprintf(w,  "9ss",  line2); 
goto  tryagain; 
break; 


Hne2(0J=  '  '  ; 
lenl=  strlendinel )  ; 
spacos=  57  -  lenl ; 
if  (spaces  <  0)  ( 

printf  ("Do  not  comment  this  lineAn"); 

goto  tryagain; 

} 
ptrl  '   &linel[lenl-l] ; 
while(spaces){ 

*ptrl=  '  ' ; 

ptrl++ ; 

spaces--; 

) 
ptrl--: 

len2=  strlen(line2) ; 
if  (len2  <=  20)  ( 

ptr2=  &line2ro] ; 

while  (*ptr2)  { 

*ptrl=  *ptr2; 
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addon: 


ptrl<-+; 
ptr2++; 
} 

fprintffw,  "\s" ,    linel); 

goto  loop: 
) 

ptr3=  &line3[57J ; 
ptr2=  &line2[20] ; 
while  (isspace(*ptr2)  ==  0)  { 

ptr2— ; 
> 

ptr4=  &line2[0] ; 
while  (ptr4  <  ptr2)  { 

*ptrl=  *ptr4; 

ptr4++: 

ptrl++ ; 
} 

*ptrl=  '\n' ; 

fprintffw,  "%s" .    linel); 
while  (*ptr2)  { 

*ptr3=  *ptr2; 

ptr3++ ; 

ptr2++; 
) 

ptrl=  linel ; 
index  ■  200; 
while  (index)  { 

*ptrl=  0: 

ptrl++; 

index — ; 
} 

strcpy{ linel ,  line3); 
lenl=  strlenl linel) ; 
if  (lenl  <-  77)  ( 

fprintf(w.  "*s",  linel); 

goto  loop; 
} 

ptr3=  line3; 
index=  200; 
while  (index)  { 

*ptr3=  0; 

ptr3++; 

index — ; 
} 

strcpy{line3,  blank); 
ptrl=  &linel[77] ; 
ptr3=  Sline3t571 ; 
while  (isspace(*ptrl)  »«  0)  { 

ptrl— i 
} 
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writback: 


ptr4=  ptrl; 
while  (*ptrl)  { 

*ptr3=  *ptrl: 

ptr3++; 

ptrl*--*-; 

} 

*ptr4=  ' \n'  ; 

ptr4++; 

*ptr4=  0: 

fprintflw,  "Ss",  linel); 

goto  addon: 


while  (feof(r)  —  0)  { 

fprintflw,  "%s" ,    llnel); 

fgetsflinel.  150,  r); 
} 

fclose(w) ; 
fclose(r) ; 

w=  fopen(f ile,  "w" ) ; 
r=  fopenl "comment .edt" ,  "r"); 

fgets(llnel.  150,  r); 
If  (feof(r)  •«  0)  { 

fprintflw,  "Sis",  linel); 

goto  writback; 
} 

fclose(w) ; 
f close ( r ) ; 
goto  restart: 
break; 

case  ' q' : 

fclose(w) ; 

fclose( r 1 ; 

unlink  I "comment . edt" ) ; 

printfl "Comment  Exiting\n"): 

exit() ; 

break: 

default: 

printf ("Editor  options  (i  a  d  w  q  <ret>  ?)  \n" ) ; 
goto  tryagain; 

} 

goto  loop; 
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APPENDIX  F 
DATA  SHEETS 
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TYPICAL  ELECTRICAL  CHARACTERISTICS 
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FIGUftE  13-  ZERO  VOLTAGE  SWITCH 
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Specifications  and  Applications 

Information 


STEPPER  MOTOR  DRIVER 

The  SAA1042  drives  3  two-phase  stepper  motor  in  the  bipolar 
mode.  The  device  contains:  three  input  stages,  a  logic  section  and 
two  output  stages. 

•  Drive  Stages  Designed  for  Motors:  6.0  V  and   12  V:  SAA1042 

24V:SAA1042A 

•  500  mA/Coil  Drive  Capability 

•  Built-in  Clamp  Diodes  for  OvervoKage  Suppression 

•  Wide  Logic  Supply  Voltage  Range 

•  Accepts  Commands  for  CW/CCW  and  Half.'Full  Step  Operation 

•  Inputs  Compatible  with  Popular  Logic  Families:  MOS,  TTL.  OTL 

•  Sat  Input  Defined  Output  State 

•  Drive  Stage  Bias  Adaptable  to  Motor  Power  Dissipation  for 
Optimum  Efficiency 


FIGURE  1  —  SAA1042  BLOCK  ClAGRAf; 
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*  V.i^/MUM  RATINGS  (TA  -  25"C  uniesso 


5®^                                                   Rating 

Symbol          |    SAA1042 

SAA1042A 

Unit 

''damping  Voltage  IPins  1.  3.  14  &  161 

Vdamo                     20 

30 

V 

*Ner  Voltage  (Vqv  -  V,-(omo  -  VM) 

vov 

6.0 

7 

;plv  Voltaqe 

vcc 

20                      30 

V 

Switching  or  Motor  Currant/Coil 

'm 

500 

mA 

Input  VoltagolPim  7,9  4  10) 

Vin  clocK 
Vjn  Full/Half 
Vin  cw/cc-v 

vcc 

V 

Powec  Oissioetlon 
Cerate  above  TA  -  25*C 
Thermal  Resistance,  Junction  to  Air 
Thermal  Resistance.  Junaion  to  Cass 

?0* 
"*JA 
SJA 

flJC 

:.o 
:o 
so 

8.0 

ft 
mWC 

•cw 
•cw 

Oparating  Junction  Temperature  flanga 

Tj 

-30  to  *i:s 

■c 

Storage  Temperature  Rango 

Tvn 

-65  to  *  ISO 

•c 

*TT<t  ;.-,-»r  Qiuioauon,  Pq,  o(  Ui 
3  and  I  PO  -  'drive  *  ''logic- 
ELECTHICAL  CHARACTERISTICS  |TA  -   *-25T1 


giv«n  by  Ih«  iudo'V  voiiar*.  Vy  ino  '•>;,  jrd  (ft*  mom  ci 


Characteristic 

Pin            j    Symbol   \           Vcc 

Mirt 

TYO 

Ml,  |  Unit  | 

Supply  Currant 

11 

lCC 

5.0  V 

20  V 

_ 

- 

3.5 
LI 

mA  | 

J 

Motor  Supply  Currant 
[1  Pin  6  -   -4Q0  iiA.  Pins  1.  3.  14,  16  Open) 
VM  -  6.0  V 
VM  -  1!  V 

VM  -  24  V 

IS 

!M 

5.0  V 
5.0  V 
5.0  V 

- 

25 
30 

JO 

- 

Input  ValUgn  —  High  SMM 

7.  9.  10 

Vih 

5.0  V 
10  V 
15  V 
20  V 

2.0 
7.0 
10 
M 

2 

2 

Input  Voltage  —  Low  State 

7.  a.  io 

V1L 

5  0  V 
10  V 

15  V 

20  v 

: 

z 

0  1 
1.5 
2.3 
!.! 

V 

Input  Reverse  Current  —  Migfi  State 
>in-Vccf 

7.  a.  io 

'|R 

b  o  ■■ 

10  V 
15V 
23  V 

2 

1 

2.: 

2.0 
3.0 

5  0 

j 

Input  Forward  Curront  —  Low  Stale 
IV;„  -  Gridl 

7.  a.  io 

l|f 

5.0  V 
10  V 
15  V 
20  V 

-  "0 
-23 

-40 

>S9 

z 

2 

?A    1 

Cutout  Vclage  —  Hirjh  Stats 
[Vm  -  12  VI     lou,  -   -SCOmA 
lout  -   -  50  mA 

1.  3.  14,  16     1     v0h 

5.0  10  20  V 

- 

v., -20 
v-.i  - 1 2 

- 

V     i 

Output  Voltage  —  Low  Slate 

'out  "  sco  mA 

'out  "  50  mA 

1.3,  U.  16 

vol 

5.0  to  n  V 

" 

07 
0.2 

: 

V    i 

1 

Output  Leakage  Current 

t^M  ■  Vq  ■  vdamp  max-) 
Pin  6:  Open 

1.  3.  14.  16 

'OR 

5.0  to  20  V 

-  100 

' 

" 

"* 

Camp  Diode  Forward  Voltage                                                           2 
(Droo  at  <m  -  SCO  mA) 

Vc 

- 

-1 M 

3.5   |     V     j 

ClccK  Freauencv                                                                                   7 

te 

5.0  to  :o  v 

o    1       - 

50    |   kHr   I 

"'«ck  Pulse  Width                                                                                7 

'w 

5.0  to  :o  v 

10     |         — 

-.   j   jtf   1 

,A  Pulse  Width                                                                                    5                       i, 

- 

io  !     -     1  -  t  »  1 

Set  Control  Voltage—  High  State                                                    5              1        — 
Low  State 

- 

-    1        -       1    05   1 
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INPUT/OUTPUT  FUNCTIONS 


Joe*  —  (Pin  7)  This  input  Is  active  on  tho  positive  edge 
of  tha  clock  pulsa  and  accepts  Logic  '1'  input  levels 
dependant  on  the  supply  voltage  and  includes  hyster- 
esis for  noise  immunity. 

CW/CCW  —  (Pin  10]  This  input  determines  the  motor's 
rotational  direction.  When  the  input  Is  he'd  low,  lOV, 
see  the  electrical  characteristics)  the  motor's  direction 
is  nominally  clockwise  IC'.Vl.  When  the  input  is  in  the 
high  Etate,  Logic  '1,'  the  motor  direction  will  bo  nomi- 
nally counter  clockwise  (CCWI,  depending  on  the  motor 
connections. 

Full/Half  Step  —  (Pin  81  This  input  determines  tho  an- 
gular rotation  of  the  motor  for  each  clock  pulse.  In  ins 
low  state  the  motor  will  make  a  full  step  for  each  applied 
dock  pulse,  while  in  the  high  state,  the  motor  will  make 
half  a  step. 

Vq  —  (Pin  21  This  pin  is  used  to  protect  the  output  (1, 
3,  14,  16)  where  large  positive  spikes  occur  duo  to 
switching  tha  motor  coils.  The  maximum  allowable  volt- 
age on  these  pins  is  the  clamp  voltage  -v,.  Jrr  ni.  Motor 
performance  is  Improved  If  a  icncr  diode  is  connected 
between  Pin  2  and  Pin  IS  as  shown  in  Figure  1. 

The  following  conditions  have  to  be  considered  when 
Meeting  the  zener  diode: 

Vdamp-VM  +  SOV 

Vz  -  Vdamp  -  VM  -  Vf  • 

where:  Vp  «  clamp  diodes  forward  voltage  drop  (see 

Figure  4) 

^clamp; 

<s  20VforSAA1Q42 

s  30  V  for  SAA1042A 
Pins  2  and  15  can  ba  linked,  in  this  case  Vj»  »  0  V. 

Set/Bias  Input  —  (Pin  6)  This  input  has  two  functions: 
Tho  resistor  Rg  adapts  the  drivers  lo  the  motor 
current. 

A  pulse  via  the  resistor  Rg  sets  tho  outputs  (1.  3,  14. 
16)  to  a  defined  state. 

The  resistor  fig  can  be  determined  from  the  graph  of 
Figure  2  according  to  the  motor  current  and  voltage. 
Smaller  values  of  Rg  will  increase  the  power  dissipation 
of  tha  circuit  and  larger  values  of  Rg  may  increase  the 
saturation  voitaga  of  the  driver  transistors. 

When  the  "set"  function  is  not  used,  terminal  A  of 
the  resistor  Hg  must  be  grounded.  When  the  set  func- 
tion is  used,  terminal  A  has  to  be  connected  to  an  open- 
collector  (buffer)  circuit.  Figure  7  shows  this  configu- 
ition.  The  buffer  circuit  (off-state)  has  to  sustain  the 
motor  voltage  V-/.  When  a  pulse  is  applied  via  the 
buffer  and  the  bias  resistor  Rg: 

During  the  pulse  duration,  ihe  motor  driver  transis- 


tors are  turned  off. 

After  elapsing  the  pulse,  tha  outputs  will  have  defined 

states. 
Figure  6  shows  the  timing  diogram. 

Figuro  7  illustrates  a  typical  application  In  whtch  the 
SAA1042  drives  a  12  V  stepper  motor  with  a  current 
consumption  of  200  mA/coil. 

A  bias  resistor  (Rg)  of  56  kfl  is  chosen  according  to 
Figure  2. 

The  maximum  voltage  permitted  at  the  output  pin  is 
Vm  -t-  6.0  V  (see  the  Moximum  Ratings),  in  this  aooli- 
cation  Vp,j  -  12  V.  therefore  the  maximum  voltage  'n 
18  V,  Tho  outputs  are  protected  by  the  internal  diodes 
and  an  external  zener  connected  between  Pins  2  and 
15. 

From  Figure  4.  it  can  ba  seen  that  th«»  voltage  drop 
across  the  internal  diodes  is  about  1.7  V  at  200  mA.  This 
results  in  a  tener- voltage  between  Pins  2  and  15  Of". 
V2  -  6.0  V  -  1,7  V  -  4.3  V. 

To  allow  for  production  tolerances  and  a  safety  mnr- 
gin,  a  3.9  V  zener  has  been  chosen  tor  this  examri« 

The  clock  is  derived  from  the  line  frequency  wnich  is 
phaso  locked  by  the  MC14046B  and  the  MCHQ24. 

Tho  voltage  on  the  clock  input,  is  normally  low  Hoy: 
'0').  The  motor  steps  on  me  positive  going  transition  Qr 
tho  clock  pulse. 

A  Logic  '0'  apDiied  !o  tha  FuiLHalf  inout.  Pin  9.  od- 
erates  the  motor  in  the  Full  Step  mode.  A  Logic  T  a' 
this  input  will  result  in  ihe  Half  Step  mode.  The  logic 
level  state  on  the  CW.CCW  input.  Pin  10.  and  the  con- 
nection o(  the  motor  coils  to  tha  outDuts  determines  (hi 
rotational  direction  of  the  motor. 

These  two  inputs  should  be  biased  to  a  Logic  '0'  o' 
T  and  not  left  floating.  In  the  event  cf  non-uss.  tnev 
should  bo  tied  to  ground  or  the  loaic  supply  fine,  '/r^ 

The  output  drivers  can  be  set  to  a  fixed  oparscn'] 
point  by  use  of  the  Set  Input  and  a  bias  resistor  Rg,  A 
positive  pulse  to  this  input  turns  the  drivers  off  and  sets 
tho  logic  state  of  the  outputs. 

After  the  negative  going  transition  cf  thfl  Set  pu!".n 
and  until  the  first  positive  going  transition  of  the  etotV. 
tho  outout3  will  be: 

LI   -  L3  =  high  and  L2  ■  14'  -  low. 
(Sea  Figure  6.  tho  timing  diagram), 

The  Set  input  can  be  driven  by  i  MCUC07S  or  a  tran- 
sistor whose  collector  resistor  is  Rg,  If  tha  input  is  not 
used,  the  'bottom'  of  Rg  must  be  nrcundr»d. 

The  total  power  dissipation  of  tho  circuit  czn  be  de- 
termined from  Figures  3  and  5. 

Pq  =  0.9  W  *  0.03  W  •  0.S3  W. 

This  results  in  a  junction  to  ambient  temperature, 
•vithout  a  lieatsink  of: 

Tj  -  TA  =  50X.Wx0.93W  -  49*C. 
or  a  maximum  ambient  temperature  O*  76'C.  For  oo- 
eranon  at  elevated  temperatures  a  heaisink  is  required 
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FIGURE  3  —  DRIVE  STAGE  POWER  DISSIPATION 
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FIGURE  S  —  TIMING  DIAGRAM 


Full  Sleo  Motor  Orlv«  Mode.  Full/Half  Steo  lnDui  -  C 
Clock 


'.'cc.si>-n.Y  varies  m 


□  Don't  Cjte 

E23  Hign  Ouicut  Imcesince 


Half  Slep  Motor  Orive  Mods.1  Full.'Hall  Sloo  inout  -   I 
Clock 


-h 

a 

#* 

4^ 

l 

v 

/TT\ 


175 


'4$P&M&&*^^  %  rM^L^SS^i 


FIGURE  7  —  TYPICAL  APPLICATION 
SELECTABLE  STEP  RATES  WITH  THE  TIME  BASE  DERIVED  FROM  THE  LINE  FREQUENCY 
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V        VENDOR- SIGH*  INSTRUMENTS.    IMC.    -   SRAIHTREE-.  MASS.     02134 
'     HOTEL  110:     2O-223SD20O-E1.6    HTM  MODIFIED  SHAFT 


Q      GENERAL  SPECIFICATIONS 

TYPE*     Permanent  magnet  rotor  '-■.■ 

[10.  OF  PHASES:     Two  (4  or  3  st;,-  witching  sequence) 

ANGUIARGACCUr1cY:     *3S  of  one  step,  no  lo.-i,  after  any  number  of 

MIB.?  araWfM  TEMPERATURE:     -20°C  to  504C  without  heat  sink 

MAXIMUM  CASE  TEMPERATURE:     100°C  v-*r* 

INSULATION:     NEHA  Class  9  .      „ 

INSULATION  REISTANCE:     1.000  H    9  5O0VC.  -.   2?  C 

OIELECTRIC  STRENSTH: 

Between  windings  and  frame:  1.000  Vnus  9  60  Hi 

Between  windings:     400  Vrtns  9  60  Hz  ' 

THERMAL  RESISTANCE  (  degrees  centigrade  per  watt] 
a.    FREE  AIR  MOOE:    TBO 
.       ■  b.    INFINITE  HEATSINK  MOOE:     TBO 
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||  LARGE  SIGMASTEPPINGJ^OTdR,  #21- 
^;.  4270D-28408",  equivalents  Sigma  P/N  21- 
y  4270D-200  F03.  Permanent  magnet  rotor.  8 
\.  leads.  Torquo  (p;  50  P PS  -  1000  oz/in.  Hold- 
ing  torque  1 1 50  oz/in.  Detent  torque  22  oz/in. 
Current  per  phase  7.6_amps.  Nominal  phase 
resistance  .3  ohm.  Two  phase.  1.8°  steps. 
200  steps  per  revolution.  Any  voltage  from  3 
to  80  VDC  can  be  used  with  the  appropriate 
external  limiting  resistor.  Can  be  used  with 
unipolar  or  bipolar  typo  drive.  Dimensions: 
4.2"  diameter  x  7.0"  long.  Shaft:  .624"  dia- 
meter x  2.3"  long.  Front  mounting  flange 
4.375"  square  with  4  mounting  holes.  Comes 
complete  with  specification  sheets  and  wiring 
diagrams. 


CONNECTION  DIAGRAM  cQ-\    SIGMA  STEPPER  MOTOR 
P/N  21-4270D-200F03 
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Industrial  Encoder  Division 

BEI    MOTION    SYSTEMS    COMPANY 


7230  Hollisler  Avenue     •     Goieta,  California    93117-2091 


Specification 

924  -  02004  -  001 
General  Specifications 
Type  L25 
Incremental  Optical  Encoder 


Notice:     The  design  and  specifications  of   trie   mstryments  ana  jccessorie 
and  described    in   this   puOl ication  are  Subject   to    improvement  ni 


Per    ECN    1831 


Per  ECN  1613 


0.   LaPlante 


Updated  per  ECN  1372 


APPfJ 

Jerry   E.    JanrJt 
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Industrial  Encoder  Division 

8H    MOTION    SYSTEMS    COMPANY 


7230  Holliirer  Avenue 


GolCM.  C4lif0rr.il    93117.2891 


General  Specifications 

Type  L25 

Incremental  Optical  Encoder 


02004-001 


SPECIFICATIONS 

Scope:  This  specification  describes  the  6EI  Industrial  Encoder 
Division  Low  Torque,  Instrument  Grade  Type  L25  Incremental  Optical 


See  Figure  2 

.2497/. 2495  Oia. 

.50  long  X  .03  deep 

Up  to  5  lbs  Axial  and 
8  lbs  Radial 

.0005  T.I.R.  Max. 

0.07  Oz.  -In.  Max. 

1.0  02.  -In.  Max. 


2.0 

Mechanical  Specifications 

2.1 

Dimensions 

2.2 

Shaft  Diameter 

2.3 

Optional  Flat  on  Shaft 

2.4 

Shaft  Loading 

2.5 

Shaft  Runout 

2.6 

Starting  Torque  at  25°C 

2.7 

Starting  Torque  at  2S°C 
(With  optional  sealed  bear 

2.8 

Bearings 

2.9 

Shaft 

2.10 

Housing 

2.11 

Cover 

2.12 

Bearing  Life  (mfr's 
specifications) 

2.13 

Moment  of  Inertia 

2.14 

Slew  Speed 

2.15 

Weiaht 

ngs) 


Class  ABEC  7 

416  Stainless  Steel 

Die  Cast  Aluminum 

Drawn  Aluminum,  .060"  Wall 

1  X  10'  Revs  at  rated 
shaft  loadino 

4.1  X  10"4  02.  In.  Sec.2 

5000  RPM  Max. 

13  02.  Typ. 


l.-iS 
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Industrial  Encoder  Division 

8EI    MOTION    SYSTEMS    COMPANY 


7230  Holliiter  Avenue     •     Goleti,  California    93117-2B91 


General  Specifications 

Type  L25 

Incremental  Optical  Encoder 


3-0  Electrical  Specifications 

3.1  Code 

3.2  Counts  Per  Shaft  Turn 

3.3  Supply  Voltape 

3.4  Current  Requirements 

3.5  Output  Format 

3.6  Output  Format  Options 

3.7  Output  Options 


i.C.  Number 

SN7404 
SN7406 


SN74C04 

MC680 

MC681 

MC689 

DM8830 
MM88C30 


ype 
r2, 


CMOS 

HTL 

HTL 

HTL 


Optional 
Pull-up 
Resistor 


Open  Col- 
lector 
Hi-Voltaoe 


Totem  Pole 

Open  Col- 
lector 

Open  Col- 
lector 
Hi-Voltaqe 
Line  Oriver 
Line   Driver 


15K  Ohms 
1SK  Ohms 


'Specify  actual   Voltaqe 


aev 
D 


1  to  2540 
See  Table  1 


TTL 
CMOS 


200  Ma  Max,  150  Ma  Typ 
150  Ma  Max,  125  Ma  Typ 


2  Channels  (A  and  8) 
in  quadrature  t  27° 
electrical  at  10  Khz 
See  Finure  1 

Index  and  Complementary 
outputs  are  available 


See  Table  I 

Output 

Supply  Voltaoe 

*  5_; 

16  MA/5V 

+5  VDC 

40  MA/30V 

+5  VDC 

5  to  15  VOC* 

15  VDC 

15  VDC 

20V 

15  VDC 

5  VDC 

5  to  15  VDC* 

1*9 


I»J  cj  j  Industrial  Encoder  Division 
*  J  HI  II      B  6 1    MOTION    SYSTEMS    COMPANY 


7130  Holliiter  Avenue     •     GolcU,  Olilomu    93117-2991 


TITLE 

General  Spec 

Type 

Incremental  Opt 

ifications 

L25 

ical  Encoder 

02004-001 

Rev 
D 

Sht  _4_ 

3.8 

11  lamination 

Incandescent  Lamp 
(40,000  hours  life) 
LED.  Optional  (Index  up  to 
1270  CPT  only) 

3.9 

Frequency  Response 
(Channels  A  and  B) 

100  kHz 

3.10 

Frequency  Response 
(Index) 

100  kHz 

4.0 

Environmental  Speci  fi 

cation 

4.1 

Temperature 

Operatinq 
Storaqe 

0  to  70°C  Standard 
-25  to  90°C 

4.2 

Shock 

50  G's  for  11  MSEC 
duration 

4.3 

Vibration 

5  to  2000  HZ  -3  20  G's 

4.4 

Humidity 

98%  RH  without  condensation 

5.0 

Options  -  For  the  followi 
complete  specifications. 

ng 

option  capabi 

ities,  consult  factory  for 

5.1 

Direction  Sensinq 

Pulse  Output  XI,  X2  or  xa 

5.2 

Interpolation 

Multiplied  sauarewcve 
output  X5 

5.3 

Dual  Resolution 

Selectable  Output 

5.4 

Sinewave 

Di 

fferential  amDlified  outputs 

fjTjj  ||  Industrial  Encoder  Division 

LiiiJI      BEI    MOTION    SYSTtMS    COMPANY 
7230  Holliiter  A«nu«     •     GoleU,  Ciiifomia    93117-2891 
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General  Specifications 

Type  125 

Incremental  Optical  Encoder 


Channel       A 


Optional 


CCW  ROTATION 
VIEWING  SHAFT 


Rev 
0 


1  cycle  — m> 

A 

B 

I 

A 

n 

OUTPUT  WAVE  FORMS 
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I  Industrial  Encoder  Division 

[Lii^UJ      8il    MOTION    SVSTEMS    COMPANY 
7230  Hollillcr  Av«mie     •     Colctj,  OlilomU    93117-2891 


General  Specifications 

Type  L25 

Incremental  Optical  Encoder 


2.62 
Dia. 


2.502 

2.498 

Dia. 


.2497 
.2495 
Dia. 


1 


2.06 

.125 

-.125 


0A15P 
Connector 


2.5 
Dia. 


EM16=2.06 
EM18=2.50 


.  PS 
Connector 


L25G EM16  or  EM18  Oependina  on  number  of  Outputs  (See  Table  II) 


2.06  . 


L25G SC18  or  EC18 


Jt 


Side  Caole  (SC) 
18"  Pigtails 
Standard 


End  Cable  (EC) 
Optional 


FIGURE  2  -  DIMENSIONS 


1U2 


jl  H  H  I  Industrial  Encoder  Division 

'LLLSJi      8tl    MOTION    SYSTEMS    COMPANY 
7330  Hollliler  Avenue     •     Gold*.  Calilomu    93117-3S9I 


General  Specifications 

Type  L25 

Incremental  Optical  Encoder 


Rev 
D 


FIGURE  3 
Face  Mount  Options 


F2 


10-32  UNF-2B 

.188  Hin.  Deep 

3  places  equally  spaced  on  a 

1.875  Dia.  bolt  circle. 


4-40  UNC-28 

.250  fin.  Deep 

4  places  equally  spaced 

on  a  1.272  Dia.  bolt  circle 

(.900  square,  Ret") 


4-40  UNC-2B 

.250  Min.  deeD 

4  places  equally  spaced 

on  a  2.000  Dia.  bolt  circle 


6-32  UNC-28 
.250  Min.  deep 
3  places  equally  spaced 
on  a  2.000  Dia.  bolt  circle 


I  »J  3  ||  Industrial  Encoder  Division 

I  j  J  3  8      BEI    MOTION    SYSTEMS    COMPANY 
7130  HollUlcr  Avenue     •     Galela,  Cilifomu    Ml 17-2891 
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TITLE 

General  Specifications 

02001-001 

Rev 

D 

Type  125 
Incremental  Optical  Encoder 

Sht  B_ 

TABLE  II 
OUTPUT  TERMINATIONS 

MS3102E-16S-1P 

MS3102E-18-1P 

Output 
Option 

Channels 
A,  B  and  Z 

Ch.  A  S  B  with 
Complements 

Ch.  A  &  Z  with 
Complements 

Pin 

Ch.  A.B  «  Z 
with 
Complements 

Pin 

A 

Channel     A 

A 

A 

A 

A 

B 

8 

B 

A" 

B 

B 

C 

Z 

A 

Z 

C 

Z 

0 

+v 

+V 

+V 

0 

*V 

E 

No  Conn. 

8 

z 

E 

No  Conn. 

F 

Ground 

Ground 

Ground 

F 

Ground 

G 

Case  Ground 

Case  Ground 

Case  Ground 

G 

Case  Ground 

H 

A 

I 

r/ 

J 

T 

HIRE  OR  DA15P  CONNECTOR  TERMINATION 

Fur 

ction 

Wire  Color 

DA15P  Pin  Number 

Cha 

r.ne 

A 

Yellow 

13 

B 

Blue 

14 

Z 

Oranrc 

15 

A 

White-Yellow 

10 

B 

White-Blue 

11 

Z 

Whi te-Oranqe 

12 

+5V 

Red 

6 

Ground 

Black 

1 

Cas 

e  Ground 

Green 

9 
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Industrial  Encoder  Division 

Btl    MOTION    SYSTEMS    COMPANY 
7230  Holliilcr  Avenue    •     Goleli,  Cjlifoini*   93117-1891 


General  Specifications 

Type  L25 

Incremental  Optical  Encoder 


02004-001 


Ordering  Information:  Encoder  may  be  specified  using  the  following 
model  numbering  system: 


L  -  Light  Duty 

BASIC  SIZE: 

25  J  2.500 

HOUSING  CONFIGURATION  LETTER:  

G  =  2.62  Dia  Servo  Mount  (Fig. 
FACE  MOUNT  OPTIONS  (Fig.  3) 

Fl,  F2  or  F3  

Blank  *  None 

SHAFT  SEAL  CONFIGURATION:  

SB  =  Seal  Integral  with  Bearing 
Blank  =  Shielded  Bearing 

CYCLES  PER  TURN:  

Enter  Cycles: 
500  =  500  cycles 
2500  =  2500  cycles 
Etc. 
NO.  OF  CHANNELS: 


A  =  Single  Channel 
AB  =  Dual  Quadrature  Channels 
A8Z  =  Dual  with  Index 
AZ  •  Single  with  Index 

COMPLEMENTS:' ■ 

C  =  Complementary  Outputs 
Blank  ■  None 

OUTPUT  I.e.  

7406,  8830,  7404,  88C30,  etc  (See  Table  I) 
Followed  by  "R"  =  Pull-up  Resistor 

ILLUMINATION:  

Blank  =  Incandescent  (Standard) 
LED  =  Light  Emitting  Diode  (Optional) 

OUTPUT  TERMINATION  LOCATION:  — 

E  =  End 

S  ■  Side  (Pigtail  only) 
OUTPUT  TERMINATION: 


MI6  =  MS3102EI6S-1P  Connector 
M18  =  MS3I02E18-1P  Connector 
D15  •  DA15P 
C  =  "igtail  cable  followed  by  length, 
C18  >  Pigtail  cable  18"  long 


Special  Non-Standard  Features - 
specified  on  purchase  order  or 
customer's  spec 


DEVELOPMENT  OF  DATA  ACQUISITION  AND  CONTROL 

FACILITIES  FOR  THE  OPTIMIZATION  OF 

DRIVE  LINE  EFFICIENCY 


by 

KENT  DOUGLAS  FUNK 
B.S.,  KANSAS  STATE  UNIVERSITY,  1984 


AN  ABSTRACT  OF  A  MASTER'S  THESIS 

submitted  in  partial  fulfillment  of  the 
requirements  for  the  degree 

MASTER  OF  SCIENCE 

Department  of  Mechanical  Engineering 

KANSAS  STATE  UNIVERSITY 
Manhattan,  Kansas 

1986 


ABSTRACT 

Due  to  escalating  fuel  costs  and  increased  capital  costs  associated 
with  operating  and  owning  agricultural  tractors,  considerable  research 
has  been  conducted  to  improve  the  fuel  efficiency  and  work  rate  of  these 
units.   The  primary  focus  of  this  research  has  been  to  accurately  define 
field  load  variations  and  to  optimize  engine  power  utilization.   The 
potential  savings  from  tractor  performance  optimization  depends  upon 
several  factors;   load  variability,  power  level,  engine  characteristics, 
transmission  characteristics,  and  tractive  efficiency. 

A  review  of  previous  engine  optimization  work  has  identified 
several  limitations  which  may  lead  to  non-optimal  solutions.   These  lim- 
itations can  be  reduced  by;   using  closed  loop  drive  line  controls,  a 
transmission  which  has  a  large  number  of  discrete  ratios  or  a  continu- 
ously variable  transmission,  and  developing  optimization  algorithms 
which  consider  the  entire  drive  line  rather  than  focusing  only  on  the 
engine. 

A  joint  study  of  Computer  Control  of  Agricultural  Tractor  Drive 
Lines  was  initiated  in  April,  1984,  between  the  Agricultural  Engineering 
and  Mechanical  Engineering  Departments  at  Kansas  State  University.   The 
objective  of  this  effort  is  to  develop  and  test  a  computer  control  sys- 
tem for  optimizing  the  performance  of  a  diesel  engine  and  a  continuously 
variable  transmission  as  applied  in  an  agricultural  tractor.   One  of  the 
primary  tasks  of  this  study  is  to  develop  laboratory  facilities  in  order 


to  study  drive  line  efficiency. 

In  order  to  fulfill  the  project's  computer  needs,  two  systems  were 
developed.   One  system  uses  an  ADAC  1000  data  acquisition  computer  and 
is  responsible  for  the  supervisory  functions,  data  recording,  sub-system 
controls,  and  conversion  of  all  analog  data  into  digital  forms.   The 
other  system  uses  a  Motorola  MC68000ECB  single  board  computer  and  is 
responsible  for  drive  line  control  and  optimization. 

The  work  completed  on  the  ADAC  1000  falls  into  two  main  categories; 
a  complete  system  upgrade,  and  development  of  a  large  software  package. 
The  structure  of  the  software  package  is  based  upon  concepts  used  in 
concurrent  programming  in  order  to  preserve  real  time  capabilities. 

The  work  completed  on  the  MC68000ECB  includes  both  hardware  and 
software  developments.   The  hardware  developments  include  bus  expansion 
buffering,  I/O  expansion,  optical  isolation,  and  digital  interfacing  to 
numerous  external  devices.   The  software  developed  provides  the  frame- 
work for  all  future  developments.   Currently,  the  software  executes  a 
fully  interactive  environment  which  is  useful  for  drive  line  mapping. 

This  project  is  on-going  with  the  test  facility  completed,  perfor- 
mance data  collected,  and  a  basic  optimization  algorithm  outlined. 
Plans  for  future  work  include:   analyzing  the  collected  data  to  estab- 
lish relationships  between  control  inputs  and  drive  line  outputs,  and 
developing  a  computer  simulation  of  the  optimization  algorithm  in  order 
to  evaluate  dynamic  and  performance  considerations. 


